delphi 杀进程的函数KillTask

最新推荐文章于 2026-05-10 05:38:05 发布

原创最新推荐文章于 2026-05-10 05:38:05 发布 · 1.8k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi #integer #string

收录于

本文介绍了一个使用Delphi编写的函数，该函数可以根据指定的进程文件名（例如QQ.exe）来终止对应的进程。通过调用Windows API函数创建快照并遍历所有进程，找到匹配的进程名称后将其终止。

一个delphi 杀进程的函数参数为文件名如 QQ.exe

德州行业网

 
 function KillTask(ExeFileName: string): integer;
const 
PROCESS_TERMINATE=$0001; 
var 
ContinueLoop: BOOL; 
FSnapshotHandle: THandle; 
FProcessEntry32: TProcessEntry32;
begin 
result := 0; 
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(ExeFileName)) 
or (UpperCase(FProcessEntry32.szExeFile) = 
UpperCase(ExeFileName))) then 
Result := Integer(TerminateProcess(OpenProcess( 
PROCESS_TERMINATE, BOOL(0), 
FProcessEntry32.th32ProcessID), 0)); 
ContinueLoop := Process32Next(FSnapshotHandle, 
FProcessEntry32); 
end; 
CloseHandle(FSnapshotHandle); 
end; 