https://www.cnblogs.com/noevil/archive/2010/10/14/1851741.html

DELPHI 通過窗口句柄或窗口标题得到进程句柄

 

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
var
hWindow: HWND;           { 窗体句柄 }
dwProcessID: DWORD; { 进程 ID }
hProcess: THandle;       { 进程句柄 }
begin
{ 根据标题获取窗体的句柄 }
hWindow := FindWindow(nil, '标题');
 
{ 通过窗体句柄获取进程 ID }
GetWindowThreadProcessId(hWindow, dwProcessID);
 
{ 通过进程 ID 获取进程句柄 }
hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessID);
 
{ 结束该进程 }
TerminateProcess(hProcess, 0);
end;

 

 
分类: Delphi