Delphi通过窗口标题结束指定进程函数

本文整理自网络，侵删。

 
//Delphi通过窗口标题结束指定进程函数
function KillAPPTask(TitleName : string ) : boolean;
var
hWindow: HWND;           { 窗体句柄 }
dwProcessID: DWORD; { 进程 ID }
hProcess: THandle;       { 进程句柄 }
begin
{ 根据标题获取窗体的句柄 }
hWindow := FindWindow(nil, pwidechar(TitleName));
{ 通过窗体句柄获取进程 ID }
GetWindowThreadProcessId(hWindow, dwProcessID);
{ 通过进程 ID 获取进程句柄 }
hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessID);
{ 结束该进程 }
TerminateProcess(hProcess, 0);
end;

KillAPPTask('任务管理器');
 

相关阅读 >>

Delphi中提取网页源代码

Delphi memo1自动循环上下滚屏

Delphi读写文本文件 assignfile reset append

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

Delphi几个进制相关的代码（hextoint、hextoasc）

Delphi xe2获取文件的 md5、crc、sha-1、sha-256、sha-512

Delphi获取 斐波那契数列　的函数

Delphi 去掉treeview水平滚动条

Delphi使焦点固定到一个button上

Delphi 清除ie缓存 internet临时文件 cookie 历史记录 表单记录 上网密码

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

转载请注明出处：木庄网络博客 » Delphi通过窗口标题结束指定进程函数