一个进程有很多窗口，怎么取这个进程的下所有窗口句柄

Posted 2023-04-06

给你一个思路吧：如果是顶级窗口类名和标题都知道的话
用api的寻找顶级窗口
找到顶级窗口句柄
之后在用
api的寻找子窗口
寻找子窗口下的标题和类名
就可以取到子窗口的句柄
之后向该句柄发送信息就行！ 参考技术A The
GetProcessHandleFromHwnd
function
retrieves
a
process
handle
from
a
window
handle.
HANDLE
WINAPI
GetProcessHandleFromHwnd(
HWND
hwnd,
);
这个函数通过
窗口句柄
获得进程句柄。有了进程句柄，PID是不是就知道怎么获得了？什么？不知道？那
我告诉你
，GetProcessId可以通过进程句柄获得进程ID：
DWORD
WINAPI
GetProcessId(
__in
HANDLE
Process
);

Delphi取所有窗口句柄

有什么办法用Delphi取所有窗口的句柄啊？最好加上详细备注

定义一个全局变量
var
handlelist: tstringlist;

procedure TForm1.Button1Click(Sender: TObject);

function GetProcessExePath(h: HWND): BOOL; stdcall;
function getfilename(str: string): string;
begin
result := UpperCase(ExtractFileName(str));
end;
var
pid: Cardinal;
pHandle: THandle;
buf: array[0..MAX_PATH] of Char;
str: string;
begin
GetWindowThreadProcessId(h, @pid);
pHandle := OpenProcess(PROCESS_ALL_ACCESS, False, pid);
GetModuleFileNameEx(pHandle, 0, buf, Length(buf));
CloseHandle(pHandle);
str := StrPas(buf);
handlelist.Add(IntTostr(h)+str);//句柄加文件路径
Result := True;
end;
var
i: integer;
begin
if form1.OpenDialog1.Execute then
begin
Edit1.Text := OpenDialog1.FileName;
EnumWindows(@getprocessexepath, 0);
for i := 0 to handlelist.count - 1 do
listbox1.items.add(handlelist.string[i]);
end;
end; 参考技术A enumwindows
这个api函数了

你看一下msdn吧。上面有一个C++的例子