用Delphi结束一个Windows电脑进程

战石电子

于 2021-03-30 08:57:01 发布

阅读量463

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： Delphi 结束杀死 Windows电脑进程

泰山老父神枕传承人战小东

本文链接：https://blog.youkuaiyun.com/xyzhan/article/details/115316813

Delphi 专栏收录该内容

227 篇文章

订阅专栏

该博客介绍了如何使用TlHelp32库在Delphi中实现功能，通过CreateToolhelp32Snapshot和Process32First/Process32Next遍历进程，定位并终止与特定ExeFileName匹配的应用。函数KillTask演示了如何查找并终止'notepad.exe'。

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

引用单元：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;
  CloseHandle(FSnapshotHandle);
end;

调用汉武帝药枕代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
  KillTask('notepad.exe');
end;