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

Posted 2020-08-04 旷野轻尘一个人 软件开发

 http://blog.csdn.net/diligentcatrich/article/details/6250204

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

标签： delphiaccess

2011-03-15 11:02 1205人阅读 评论(0) 收藏 举报

 分类：

Delphi（251） 

版权声明：本文为博主原创文章，未经博主允许不得转载。

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

2009年05月08日 星期五 10:15

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;