结束进程

最新推荐文章于 2020-12-09 05:05:31 发布

aluyue

最新推荐文章于 2020-12-09 05:05:31 发布

阅读量508

点赞数

分类专栏： Delphi/API 函数文章标签： integer string

本文链接：https://blog.csdn.net/aluyue/article/details/2489621

版权

Delphi/API 函数专栏收录该内容

12 篇文章 0 订阅

订阅专栏

uses TLHelp32;

EndProcess('calc.exe');

procedure TForm1.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;