GetExitCodeProcess richtig verwenden

[Luckie]

Ich habe hier mal eine Funktion implementiert, die überprüft, ob ein Prozess beendet wurde:

Delphi-Quellcode:

function TKillProcess.HasProcessTerminated: Boolean;
var
  ProcessHandle: Cardinal;
  ProcessExitCode: DWORD;
const
  PROCESS_QUERY_LIMITED_INFORMATION = $1000;
begin
  Result := False;
  ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_QUERY_LIMITED_INFORMATION, False, FProcessID);
  if ProcessHandle <> 0 then
  begin
    if GetExitCodeProcess(ProcessHandle, ProcessExitCode) then
    begin
      case ProcessExitCode of
        STILL_ACTIVE: Result := False;
      else
        Result := True;
      end;
    end
    else
    begin
      RaiseLastOSError;
    end;
    CloseHandle(ProcessHandle);
  end
  else
  begin
    RaiseLastOSError;
  end;
end;

Funktioniert das so zuverlässig oder hab eich da was übersehen?

[DeddyH]

Wenn ich den MSDN-Artikel richtig verstanden habe, sollte das so richtig sein. Allerdings könnte man das IMO noch kürzen:

Delphi-Quellcode:

if GetExitCodeProcess(ProcessHandle, ProcessExitCode) then
    begin
      Result := ProcessExitCode <> STILL_ACTIVE;
    end
    else
    begin
      RaiseLastOSError;
    end;

[Assarbad]

Ich denke mal, daß das CloseHandle eher in einem finally-Block stehen sollte. Ansonsten bleibt die Referenz nämlich im Fehlerfall.

Sonst sehe ich auf Anhieb keine Probleme.

Allerdings ist die beste Methode das zu ermitteln was du willst noch immer WaitForSingleObject.

[Luckie]

Ok, danke fürs drübergucken.

[rollstuhlfahrer]

Nun ja, die Zuverlässigkeit ist nicht 100%ig gegeben. In MSDN steht nämlich auch drin, dass man als Programmierer es möglichst vermeiden sollte, die Konstante STILL_ACTIVE als Exitcode zu setzen. Nimmt man jetzt eine zufällige Verteilung der Exitcodes an, ist das 2^-32*100%.

Ist es nicht sicherer, sich einen Process-Snapshot zu besorgen und mit Hilfe von FirstProcess()/NextProcess() den Prozess zu suchen? Wenn er da nicht dabei ist, lebt er auch nicht mehr. Das sollte reichen, weil die ProcessID nun mal während der gesamten Laufzeit seit dem letzten Neustart einmalig sind.

Bernhard

[Assarbad]

Oder man benutzt WaitForSingleObject wie es von Alters her üblich ist :zwinker:

Sowohl Threads als auch Prozesse werden signalisiert wenn sie beendet wurden.

[Luckie]

Könnte man natürlich auch machen. dann könnte man auch gleichzeitig einbauen mehrere gleichnamige Prozesse zu beenden, wie es schon vorgeschlagen wurde.