Delphi结束指定进程EndProcess

最新推荐文章于 2020-06-13 22:01:05 发布

Mushroom_lb

最新推荐文章于 2020-06-13 22:01:05 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi integer string 2010

本文链接：https://blog.youkuaiyun.com/yinxing408033943/article/details/6882786

Delphi 专栏收录该内容

13 篇文章

订阅专栏

本文详细介绍了使用Delphi实现结束进程的功能，通过调用特定的API来终止目标进程，并提供了关键代码片段和流程说明。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

{-------------------------------------------------------------------------------
过程名:    EndProcess
作者:      liubin
日期:      2010-12-20
参数:      AFileName
功能描述：结束进程

需要引用的单元use ShellAPI,TlHelp32

用法：ExtractFileName(Application.ExeName)
返回值:    无
-------------------------------------------------------------------------------}
procedure EndProcess(AFileName: string);
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapShotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
FSnapShotHandle := CreateToolhelp32SnapShot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while integer(ContinueLoop) <> 0 do
begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(AFileName))
       or (UpperCase(FProcessEntry32.szExeFile ) = UpperCase(AFileName))) then
      TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0);
      ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
end;