本文整理自网络，侵删。
只知道进程ID，获取主窗口句柄的方法如下：
通过EnumWindows枚举所有窗口
使用GetWindowThreadProcessID，通过窗口句柄获取进程ID
比便获取的进程ID与当前已知的进程ID，判断是否为需要的窗口
代码如下：
function GetHwndFromProcess(const hPID: THandle): THandle;
type
PEnumInfo = ^TEnumInfo;
TEnumInfo = record
ProcessID: DWORD;
HWND: THandle;
end;
function EnumWindowsProc(Wnd: DWORD; var EI: TEnumInfo): Bool; stdcall;
var
PID: DWORD;
h: THandle;
begin
Result := True;
GetWindowThreadProcessID(Wnd, @PID);
if PID = EI.ProcessID then
begin
h := GetWindowLong(Wnd, GWL_HWNDPARENT);
if h = 0 then
begin
EI.HWND := Wnd;
Result := False;
end;
end;
if not Result then
EI.HWND := WND;
end;
function FindMainWindow(PID: DWORD): DWORD;
var
EI: TEnumInfo;
begin
EI.ProcessID := PID;
EI.HWND := 0;
EnumWindows(@EnumWindowsProc, Integer(@EI));
Result := EI.HWND;
end;
begin
if hPID <> 0 then
Result := FindMainWindow(hPID)
else
Result:=0;
end;
相关阅读 >>
Delphi generics collections tdictionary 用法
Delphi firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别
Delphi 单击android上的web浏览器链接以启动Delphi应用程序
更多相关阅读请进入《Delphi》频道 >>
