DruckenMister WongFacebook

Herausfinden, ob ein bestimmtes Programm gerade läuft

System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

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 Handle<>0 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.