Prüfen ob ein gestartetes Program noch läuft

[DL3AD]

Hallo,
ich starte ein Program wie folgt:

Code: Alles auswählen

  if FileExists('CNC_stichel') then
  begin
    AProcess := TProcess.Create(nil);
    Aprocess.Executable:= 'CNC_stichel';
    AProcess.Execute;
    AProcess.Free;
  end
  else
  begin
    ShowMessage('Program nicht gefunden !');
  end;      

das funktioniert auch soweit - nun möchte ich verhindern dass das Program ein weiteres mal gestartet wird.
Wie kann ich prüfen ob das Program noch läuft - oder wie verhindere ich einen weiteren Programstart ?

Gruß Frank

[af0815]

Dazu gibt es fertige Pakete für Lazarus, wenn man danach sucht.

[DL3AD]

Hallo af0815,
ich hatte gesucht, aber nichts gefunden - deshalb auch die Frage hier im Forum.
Nur - nach welchem Paket muss ich suchen ?

[fliegermichl]

UniqueInstance

[DL3AD]

Danke - Problem wurde gelößt.