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

最新推荐文章于 2023-04-01 16:31:05 发布

iseekcode

最新推荐文章于 2023-04-01 16:31:05 发布

阅读量1.5k

点赞数

分类专栏： IE &amp; WebBrowser 文章标签： function ie html

IE & WebBrowser 专栏收录该内容

19 篇文章 0 订阅

订阅专栏

通过窗口句柄获得 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;