|
|
| Тема |
 GetIEFromHWND |
|
| Автор |
Wise Guy (един такъв) |
|
| Публикувано | 17.05.02 02:02 |
|
|
|
Nqkoi polzval li e tazi funkciq:
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;
Pri men izkarva Undeclared Identifier vupreki che sum slojil:
OleServer, OleCtrls, SHDocVw, ComObj, SHDocVW_TLB, MSHTML_TLB vuv uses
Nqkoi moje li da pomogne, che ne moga da si hvana IWebbrowser2-to ot "Internet Explorer_Server" Handle 
by Wise Guy
| |
| |
| 
|
|
