1.增加ole对象,并得到ProgID字串
如:HKEY_CLASSES_ROOT\CLSID\{a41a4187-5a86-4e26-b40a-856f9035d9cb}\ProgID\MsTscAx.MsTscAx.2
2.代码引用
long ll_doc,i,ll_dc
OLEObject MShtml
MShtml=create OLEObject
ll_dc=MShtml.connectToNewObject("htmlfile_FullWindowEmbed")
if ll_dc<>0 then
messagebox("提示","对象建立失败!"+string(ll_dc))
end if
mshtml=ole_web.object.Document//将web对象的document给HTMLDocument类