delphi 结束外部程序

easyboot

于 2013-06-14 11:49:34 发布

阅读量824

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/easyboot/article/details/9093411

Delphi 专栏收录该内容

54 篇文章

订阅专栏

本文介绍了一个使用Tlhelp32函数的示例，该函数用于查找并终止指定名称的进程。通过创建工具帮助快照，并遍历所有进程来查找目标进程，然后调用TerminateProcess函数结束进程。

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

uses Tlhelp32

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;
end;