没有一般的方法来获得应用程序的“窗口句柄”,因为不能保证任何程序都有一个窗口句柄。一个程序可能有许多顶级的句柄(例如,Microsoft Word,每个文档一个),或者它可能根本没有窗口。您可能会质疑您真正需要窗口句柄做什么;可能有更好的方法来做您试图做的事情,而不需要任何特定的窗口句柄。

WinExec

(已被弃用近15年,因此您应认真考虑不再使用它)和

ShellExecute

如果他们确实启动了任何程序,那么绝对不会返回关于他们启动的程序的信息。(

贝壳执行

可能使用DDE向已经运行的应用程序实例发送命令。)如果它们启动应用程序,则可能在程序再次运行之前完成运行。

你可以使用

CreateProcess

或

ShellExecuteEx

相反。如果他们启动一个程序,他们会给你一个表示他们启动的程序的进程句柄。您可以使用它来帮助您获得有关该程序的其他信息,例如它的窗口列表。别费心了

FindWindow

;标题和窗口类不能保证是唯一的;一个程序可能对许多不同的窗口使用相同的类名,并且一个程序的多个实例将使用相同的类名,而没有太多方法来选择您真正想要的类名。

EnumWindows

是一个可用于获取候选窗口句柄列表的函数。您给它一个函数指针,它将为桌面上的每个顶级窗口调用该函数一次。您需要一种方法来告诉它您对哪个过程感兴趣,以及一种方法来返回结果列表。函数只接受一个参数,因此该参数必须是指向包含更多信息的结构的指针:

type

PWindowSearch = ^TWindowSearch;

TWindowSearch = record

TargetProcessID: DWord;

ResultList: TWndList;

end;

TWndList

是我编出来的用来存放

HWnd

价值观。如果您有Delphi2009或更高版本,可以使用

TList

;对于早期版本,可以使用

TList

后代或你选择的任何其他人。

创建过程

将在

dwProcessID

会员

TProcessInformation

记录其填写情况;

谢尔执行程序

只返回进程句柄,因此使用

GetProcessID

就这点而言。窗口枚举函数需要与此签名匹配的回调函数:

function SelectWindowByProcessID(Wnd: HWnd; Param: LParam): Bool; stdcall;

你可以使用

枚举窗口

要获得这样的句柄列表:

function GetWindowListByProcessID(pid: DWord): TWndList;

var

SearchRec: TWindowSearch;

begin

Result := TWndList.Create;

try

SearchRec.TargetProcessID := pid;

SearchRec.ResultList := Result;

Win32Check(EnumWindows(SelectWindowByProcessID, LParam(@SearchRec)));

except

Result.Free;

raise;

end;

end;

您将实现如下回调函数:

function SelectWindowByProcessID(Wnd: HWnd; Param: LParam): Bool; stdcall;

var

SearchRec: PWindowSearch;

WindowPid: DWord;

begin

SearchRec := PWindowSearch(Param);

Assert(Assigned(SearchRec));

GetWindowThreadProcessID(Wnd, WindowPid);

if WindowPid = SearchRec.TargetProcessID then

SearchRec.ResultList.Add(Wnd);

Result := True;

end;

一旦您有了这个列表,您就可以检查窗口的其他属性,以确定哪些属性才是您真正想要的。您可以通过窗口标题或类名来确定它,也可以通过窗口中的其他控件来确定它。

使用完进程句柄后,请确保调用

CloseHandle

这样操作系统就可以清除进程的簿记信息。