我有进程ID,需要以Delphi 5编程关闭关联进程

Question

当我有进程ID时,任何人都可以帮我编写一个代码示例来关闭相关进程.我将使用Delphi 5以编程方式在Windows 2003服务器上执行此操作.

Answer 1

如果您有进程ID并希望强制终止该进程,则可以使用以下代码:

function TerminateProcessByID(ProcessID: Cardinal): Boolean;
var
  hProcess : THandle;
begin
  Result := False;
  hProcess := OpenProcess(PROCESS_TERMINATE,False,ProcessID);
  if hProcess > 0 then
  try
    Result := Win32Check(Windows.TerminateProcess(hProcess,0));
  finally
    CloseHandle(hProcess);
  end;
end;

Answer 2

使用EnumWindows()和GetWindowProcessThreadId()定位属于该进程的所有窗口，然后发送它们WM_CLOSE和/或WM_QUIT消息。