Programm nur einmal starten

[Gargamel]

Nächstes Problem. Ein Programm darf nur einmal gestartet werden. Dazu habe ich diese Funktion:

Delphi-Quellcode:

function AppAlreadyUsed(path:string):boolean;
var mHandle: THandle;
    ergebnis:boolean;
Begin
  ergebnis:=false;
  mHandle := CreateMutex(nil,True,PAnsiChar('Global\'+path));
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    ergebnis:=true;
  end;

  if mHandle <> 0 then
    CloseHandle(mHandle);

  result:=ergebnis;
End;

Aufgerufen wird die Funktion z.B. so:

Delphi-Quellcode:

if AppAlreadyUsed('C:\Windows\notepad.exe') = true 
  then
     Label3.Caption:='Notepad bereits ausgeführt'
  else
     Label3.Caption:='Notepad läuft momentan nicht';

Was mache ich da wieder falsch?

[Luckie]

Die Funktion verhindert einen Mehrfachstart der eigenen Anwendung und nicht von anderen Anwendungen. Der Pfad wird nur übergeben, damit der Mutex eindeutig ist.

[Gargamel]

Achso. OK, dann habe ich da etwas falsch verstanden.
Ich möchte über einen Launcher ein anderes Programm starten. Aber eben nur dann, wenn dieses nicht bereits gestartet wurde.

Bei der Gelegenheit will ich gleich noch eine Möglichkeit haben, ein anderes Programm zu beenden.

[Matze]

Ermitteln, ob eine Exe-Datei läuft
Das prüft allerdings nur den Dateinamen, nicht den Pfad.

Wie man eine Anwendung beendet, steht 100% hier irgendwo in der DP. ;)

[rollstuhlfahrer]

Du müsstest mit Pricess32First/Process32Next die Prozessliste durchgehen und dann prüfen, ob ein Prozess da schon dabei ist. Dabei kann der Prozess aber dennoch doppelt auftreten.

Bernhard

[roter Kasten: war zu langsam]

[Gargamel]

OK, scheint zu funktionieren. Danke danke danke.
Das jetzt kein Pfad dabei ist, kann ich verschmerzen, da der Launcher nur ein ganz bestimmtes Programm starten soll. Nämlich mein eigenes Programm. :wink:

In dem Launcher soll man diverse Einstellungen vornehmen können, die dann als Parameter an das andere Programm übergeben werden.

[manfred_h]

Hallo

von LMD exisitiert auch eine Komponente die dies erledigt:
TLMDOneInstance
Safeguards that only one instance of your application can be executed. The component offers several options and an additional action event.

Shalom
Manfred

[mkinzler]

Es geht ihm aber nicht um die eigene Anwendung :zwinker:

[manfred_h]

Ups. :duck: