delphi杀进程的两种方式

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

弘石

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

阅读量6.6k

点赞数

分类专栏： Delphi编程文章标签： delphi integer application string function

Delphi编程专栏收录该内容

26 篇文章

订阅专栏

本文详细介绍了两种方法来结束具有特定标题或文件名的进程。第一种方法简单直接，通过窗口标题找到并杀死进程；第二种方法更为复杂，能够获取更多相关信息，并提供了在其他功能场景下可能用到的参考。

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

第一种：比较简单，根据标题，找到窗口，再找到进程，杀死进程

procedure KillProgram(WindowTitle : string);
const
  PROCESS_TERMINATE = $0001;
var
  ProcessHandle : THandle;
  ProcessID: Integer;
  TheWindow : HWND;
begin
  TheWindow := FindWindow(nil, PChar(WindowTitle));
  GetWindowThreadProcessID(TheWindow, @ProcessID);
  ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
  TerminateProcess(ProcessHandle,4);
end;

第二种：复杂一点，不过可获取的信息更多，其他功能的时候可以参考一下

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;

另，word也可以根据标题结束进程，word的标题的规则是application的title + "-" + window的title