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

本文整理自网络，侵删。

 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 的字符及字符串 - char、ansichar、widechar、pchar、pansichar、pwidechar

Delphi 显示时间日期星期

crc16unt.pas

字符串截取小例子Delphi源代码

Delphi第三方控件通用安装方法

Delphi : tstringlist的find，indexof和sort

win32全局钩子在Delphi下实现的关键技术

Delphi 清空某个form的控件内容,用tag来判断

Delphi 取得 ios 辅助使用里的字型大小

Delphi 关于选择文件路径 selectdirectory 弹出窗口居中的问题

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » DELPHI 通�^窗口句柄或窗口标题得到进程句柄