我有进程 ID，需要使用 Delphi 5 以编程方式关闭关联进程

任何人都可以帮我提供一个编码示例，以便在我拥有进程 ID 时关闭关联的进程。我将使用 Delphi 5 在 Windows 2003 服务器上以编程方式执行此操作。

如果您有进程 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;