delphi 知道路径和进程如何获取窗口句柄?
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi 知道路径和进程如何获取窗口句柄?相关的知识,希望对你有一定的参考价值。
delphi 知道路径和进程如何获取窗口句柄
参考技术A 纠正你一下,得知路径是获取不了目标进程的句柄的。通过API函数 OPENPROCESS 可以获取进程的句柄,不过要注意的是,进程句柄不一定是窗口的句柄,好好理解这句话。HANDLE hProcess = OpenProcess( PROCESS_ALL_ACCESS, FALSE, pID ); hProcess //进程句柄pID //进程ID 如果你想取某个窗口句柄的话,最好不要通过进程ID转换的方式,这会让你离目标越来越远。 参考技术B 先取进程的主线程句柄,然后取线程的主窗口据柄,具体就是两个api函数而已,名称和用法可以看msdn,有详细说明和demo看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++的例子
以上是关于delphi 知道路径和进程如何获取窗口句柄?的主要内容,如果未能解决你的问题,请参考以下文章