Question

delphi 控件怎么获得窗体的句柄

Answer 1

delphi 里有窗体的控件，都有一个　handle　属性，里面保存的就是窗体的句柄。

如果是想要获取软件（程序）之外的窗体句柄，可以使用 win32 函数：FindWindow 或GetWindow来遍历查找，示例代码如：  

  

handle := FindWindow(nil,PChar('窗口的标题'));

 

FindWIndow 示例：

procedure TForm1.Button1Click(Sender: TObject);   
var   
　　hCurrentWindow: HWnd;   
　　WndText:String;   
begin   
　　hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);   
　　while hCurrentWindow <> 0 do   
　　begin   
　　　　WndText:=GetWndText(hCurrentWindow);   
　　　　if UpperCase(WndText)='窗口的标题' then begin   
　　　　　　...   
　　　　　　...   
　　　　end;   
　　　　hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);   
　　end;   
end;