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

[SirThornberry]

CloseHandle solltest/brauchst du nur aufrufen wenn du auch ein gültiges Handle bekommen hast.

[bitsetter]

Zitat von delphis spassbremse:

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

Hi,

wenn das Processhandle bei dir 0 ist, also der Process nicht geöffnet worden ist, dann wird bei deiner Funktion Result = true zurückgegeben wenn ich das richtig sehe.

EDIT: Du könntest es auch so abändern:
result := LongBool(pidhandle);

[Luckie]

Muss es nicht umgekehrt lauten? Wenn das von OpenProcess zurückgelieferte Handle ungleich null ist, dann existeirt der Prozess?

[delphis spassbremse]

jo hab mich verschrieben...

ist aber leider nicht das Problem...

[EDIT=1] Und irgendwie ist das Handle IMMER 1928 => [/EDIT]

[EDIT=2]
Da fällt mir grad was ein...
ich könnte alle laufenden ProzessID´s
in eine StringList packen und
dann mit einer schleife pid mit pid vergleichen...

nur müsst ich jetzt wissen, wie ich alles PID´s in
eine StingList packe...

Links wären evtl hilfreich
[/EDIT]

MFG

Björn

[Luckie]

Mit EnumProcesses kannst du alle Prozesse auflisten. Beispielcode sollte es auch im Forum geben.

Was ist den ndas für ein Prozess? Eventuell fehlen dir die nötigen Rechte.

[delphis spassbremse]

ich hab zum testen notepad und mspaint genommen