RSS订阅 | 匿名投稿
您的位置:网站首页 > 进程 > 正文

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

作者:admin 来源: 日期:2018/2/10 19:17:00 人气: 标签:

//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('任务管理器');

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料