摘要：1、IHTMLWindow2-> IWebBrowser2var wd:IHTMLWindow2; iw:IWebBrowser2;begin (wd as IServiceProvider).QueryService(IID_IWebBrowserApp,IWebBrowser2,Iw);end;2、IHTMLDocument2.frames.item(i) -> IHTMLWindow2var dsp:IDispatch; wd:IHTMLWindow2; doc:IHTMLDocument2;begin dsp:=doc.frames.item(i); wd:= dsp .. 阅读全文

摘要：//声明:GetWindow( hWnd: HWND; {指定的窗口句柄} uCmd: UINT {指定的关系选项}): HWND; {失败返回0; 成功返回符合的窗口句柄}//uCmd 可选值:GW_HWNDFIRST = 0; {同级别第一个}GW_HWNDLAST = 1; {同级别最后一个}GW_HWNDNEXT = 2; {同级别下一个}GW_HWNDPREV = 3; {同级别上一个}GW_OWNER = 4; {属主窗口}GW_CHILD = 5; {子窗口}{要有个 Memo 接受数据}procedure TForm1.Button1Cli... 阅读全文

摘要：procedure TForm1.Timer1Timer(Sender: TObject);var H:HWND; arr:array[0..254] of char; Rt:TRect; pt:TPoint; ca:TCanvas;begin ca:=TCanvas.Create ; ca.Handle :=GetDc(0); if GetCursorPos(pt) then begin //将鼠标位置写入pt label1.Caption :='鼠标位置：'+inttostr(pt.x)+','+inttostr(pt.y); h:=WindowFrom.. 阅读全文