[델파이] IE 핸들에서 IWebbrowser2 인터페이스 얻기

 

type

TObjectFromLResult = function(LRESULT: lResult; const IID: TIID;

WPARAM: wParam; out pObject): HRESULT; stdcall;

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;