Delphi通过窗口句柄获得IWebBrowser2接口源码

最新推荐文章于 2024-12-03 07:45:00 发布

转载最新推荐文章于 2024-12-03 07:45:00 发布 · 2k 阅读

标签

#delphi #integer #function #ie #html

收录于

DELPHI编程专栏收录该内容

379 篇文章

订阅专栏

本文介绍了一种通过Windows句柄（HWND）获取Internet Explorer (IE) 对象的方法。使用Delphi编写，涉及动态链接库（DLL）加载及API调用，如发送窗口消息以触发IE的特定行为，并利用ObjectFromLresult函数从返回的结果中提取IHTMLDocument2接口，进一步通过IServiceProvider获取IWebBrowser2接口。

function GetIEFromHWND(WHandle: HWND; var IE: IWebbrowser2): HRESULT; var hInst: HWND; lRes: Cardinal; MSG: Integer; pDoc: IHTMLDocument2; ObjectFromLresult: TObjectFromLresult; begin hInst := LoadLibrary('Oleacc.dll'); @ObjectFromLresult := GetProcAddress(hInst, 'ObjectFromLresult'); if @ObjectFromLresult <> nil then begin try MSG := RegisterWindowMessage('WM_HTML_GETOBJECT'); SendMessageTimeOut(WHandle, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes); Result := ObjectFromLresult(lRes, IHTMLDocument2, 0, pDoc); if Result = S_OK then (pDoc.parentWindow as IServiceprovider).QueryService(IWebbrowserApp, IWebbrowser2, IE); finally FreeLibrary(hInst); end; end; end;