用Delphi结束一个Windows电脑进程

最新推荐文章于 2023-12-14 11:09:27 发布

原创最新推荐文章于 2023-12-14 11:09:27 发布 · 482 阅读

0 ·

CC 4.0 BY-SA版权

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

文章标签：

#Delphi #结束 #杀死 #Windows电脑进程

Delphi 专栏收录该内容

227 篇文章

订阅专栏

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

引用单元：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;