GetExitCodeProcess richtig verwenden

[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;