WebBrowser чужого приложения

← →
Ertong © (2004-12-29 14:45) [0]

Как можно получить интерфейс чужого WebBrowser, для управления им (например, загрузить страницу, заполнить форму).

← →
Dolt © (2004-12-31 09:10) [1]

1) Получаем хэндл Internet Explorer_Server.
2) GetIEFromHWnd(WndChild, IE);

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;

ЗЫ. Функцию писал не я - нашел на просторах этого же сайта

WebBrowser чужого приложения Найти похожие ветки