So wie ich das sehe hat TiGü recht,
sein Code sollte reichen, könnte man sogar noch etwas beschleunigen wenn man nach dem Finden abbricht.
Delphi-Quellcode:
// prüfen ob aktiver prozess existiert
bFound := false;
for K := 0 to (vProcList.Count - 1) do
begin
if vProzessID.Find(vProcList[K].ID, proc) then
begin
bFound := true;
break; // Abbrechen da wir den Process haben
end;
end;