delphi 枚举进程，结束进程

最新推荐文章于 2023-05-23 09:20:34 发布

god00

最新推荐文章于 2023-05-23 09:20:34 发布

阅读量545

点赞数

分类专栏： Delphi 文章标签： delphi integer timer function string qq

Delphi 专栏收录该内容

17 篇文章

订阅专栏

本文介绍了一种使用Delphi编程语言终止指定进程的方法。通过创建工具帮助快照并遍历进程列表，找到匹配的进程名称后进行终止操作。文中提供了一个名为KillTask的函数示例，展示了如何终止如QQ等特定进程。

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

//学编程的最好方法，还是看高手写的代码，了解函数是怎么用的，我个人觉得。。。-_-# 最不懂的也可以Copy就用~

uses
Tlhelp32;

function KillTask(ExeFileName:string):integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
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;

调用的时候只需要
if KillTask('qq.exe') <> 0 then
showmessage('结束QQ成功')
else
showmessage('无法结束QQ');

你在程序里面用一个计时器，每隔一秒钟检查一下，如果有就结束，也就实现了禁止运行的目的。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
KillTask('qq.exe');
end;