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 url 编码的装换

Delphi用idhttp.get访问一个网址返回403错误,但用ie浏览器访问正常

Delphi getwindowtext - 获取窗口标题

Delphi 生成guid算法的单元

Delphi memo 字符串换行

Delphi 基础学习指定字符替换其他字符

Delphi 用ini记录combobox的itemindex

Delphi webbrowser有关技术

Delphi sametext

Delphi中的strpas功能

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...