Läuft ein Prozess mit einer bestimmten PID?

[delphis spassbremse]

und glich die nächste Frage xD

und zwar ich möchte ermitteln, ob ein prozess mit einer
bestimmten Prozess ID läuft.

Habe mir folgenden Code geschrieben, der leider nur Teilweise
funktioniert...

Delphi-Quellcode:

function pid_da (pid: Integer) : Bool;
var
  pidhandle: THandle;
begin
  pidhandle := OpenProcess(PROCESS_QUERY_INFORMATION, False, pid);
  if pidhandle <> 0 then
  begin
   result := false;
  end else
  begin
   result := true;
  end;
  CloseHandle(pidhandle);
end;

Wenn ich den Prozess damit prüfe und
er wirklich läuft, dann geht es...

wenn er aber nach der prüfung beendet wurde,
und erneut geprüft wird, bleibt das ergebnis immer
noch auf true....

Weiß vllt. jemand, woran das liegt?

MFG

Björn