Home » Tipps & Tricks » System » Prozesse » Herausfinden, ob ein bestimmtes Programm gerade läuft

Herausfinden, ob ein bestimmtes Programm gerade läuft

Dies kannst Du ganz gut mit FindWindow machen. Ich habe das mal gebraucht, um zu schauen, ob der Hamster schon gestartet wurde.Bemerke: Du kannst mit dieser Procedure nur testen, ob das Hauptfenster des Hamsters geöffnet ist, nicht ob das eigentliche Programm geöffnet ist!So sieht die Procedure aus:

procedure TForm1.Button1Click(Sender: TObject);
var
  Handle: THandle;
begin
  Handle := FindWindow(PChar('THamsterMainWindow'),nil);
  if Handle0 then 
    Showmessage('Hamster ist schon gestartet')
  else
    Showmessage('Hamster wurde noch nicht gestartet');
end;

Für FindWindow benötigt man den Klassennamen der Anwendung. Dies kannst Du mit dem Fenster-Liste Programm von Simon Reinhardt herausbekommen.