Delphi杀进程进行关闭EXE

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

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

0 ·

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

标签

#开发语言 #DELPHI

收录于

delphi 同时被 2 个专栏收录

8 篇文章

订阅专栏

delphi7

4 篇文章

订阅专栏

本文详细描述了如何通过编写Delphi函数，利用TLHelp32库中的功能来查找并杀死指定名称的进程（如test.exe），通过`TerminateProcess`函数实现进程的强制结束。

1. use TLHelp32

2. 函数进行杀进程

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;

3.调用杀进程函数

KillTask('test.exe');