如何用程序来得到 另一个单独打开ie窗口某个元素的句柄 我想用一个程序得到打开的一个ie窗口(这个ie窗口包含框架)而我所取的那个某本框在某一个框架当中,如何取最好有例子,我已经可以取一个不包含框架的文本框了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 to Eastunfail(浴血雏龙)==(恶鱼杀手)比如一个文本框或一个按钮 :(今天用IHtmlDocument2和IHTMLElement都试了一下,老是得不到正确的结果 type TObjectFromLResult = function(LRESULT: lResult; const IID: TIID; WPARAM: wParam; out pObject): HRESULT; stdcall;function GetIEFromHWND(hWnd: HWND; var IE: IWebbrowser2): HRESULT;var hInst: THandle; lRes: Cardinal; MSG: Integer; pDoc: IHTMLDocument2; ObjectFromLresult: TObjectFromLresult;begin result:=S_OK; if (hWnd<=0) then exit; hInst := LoadLibrary('Oleacc.dll'); if (hInst>0) then try @ObjectFromLresult := GetProcAddress(hInst, 'ObjectFromLresult'); MSG := RegisterWindowMessage('WM_HTML_GETOBJECT'); SendMessageTimeOut(hWnd, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes); Result := ObjectFromLresult(lRes, IID_IHTMLDocument2, 0, pDoc); if Result = S_OK then begin (pDoc.parentWindow as IServiceprovider).QueryService(IWebbrowserApp, IWebbrowser2, IE); end; finally FreeLibrary(hInst); end;end;使用GetIEFromHWND之后,就可以像控制你的TWebBrowser一样来控制别的IE了。 帮忙给看看关于映射的代码吧,初学内存映射 色彩转换的问题. 使用gridEH,为什么无法再使用 sql 语句控制ADOQuery1查询? 关于捕获光盘插入、弹出消息的问题 又是TidHttp控件访问代理服务器的问题? 很常见的一个难题,大家来探讨。200分 小女子有个问题急需解决请各位大侠帮忙了(关于数据库中新存入一条记录的打印) 问一个文本的问题 条码进来后怎么读到指定的地方? 怎么样把paintbox的图形输出到打印机?? 如何在winxp未登陆的时候运行程序? 如何写一个IE插件!
:(
今天用IHtmlDocument2和IHTMLElement都试了一下,老是得不到正确的结果
TObjectFromLResult = function(LRESULT: lResult; const IID: TIID; WPARAM: wParam; out pObject): HRESULT; stdcall;function GetIEFromHWND(hWnd: HWND; var IE: IWebbrowser2): HRESULT;
var
hInst: THandle;
lRes: Cardinal;
MSG: Integer;
pDoc: IHTMLDocument2;
ObjectFromLresult: TObjectFromLresult;
begin
result:=S_OK;
if (hWnd<=0) then
exit;
hInst := LoadLibrary('Oleacc.dll');
if (hInst>0) then
try
@ObjectFromLresult := GetProcAddress(hInst, 'ObjectFromLresult');
MSG := RegisterWindowMessage('WM_HTML_GETOBJECT');
SendMessageTimeOut(hWnd, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes);
Result := ObjectFromLresult(lRes, IID_IHTMLDocument2, 0, pDoc);
if Result = S_OK then
begin
(pDoc.parentWindow as IServiceprovider).QueryService(IWebbrowserApp, IWebbrowser2, IE);
end;
finally
FreeLibrary(hInst);
end;
end;
使用GetIEFromHWND之后,就可以像控制你的TWebBrowser一样来控制别的IE了。