Nur starten wenn anderes Programm NICHT ausgeführt wird.

[Rapthor]

Die Frage kam schonmal von mir, allerdings wusste ich da nicht, wie ich es quelltextmäßig realisieren sollte, dass ich mit folgendem nicht nur überprüfen lasse ob eine gewisse "Festung.exe" läuft, sondern auch on eine client.exe läuft:

Delphi-Quellcode:

Initialization
   mHandle := CreateMutex(nil, True, 'Festung.exe');
     if GetLastError = ERROR_ALREADY_EXISTS then
     begin
       ShowMessage('Programm wird bereits ausgeführt');
       Halt;
     end;

finalization
   if mHandle <> 0 then
     CloseHandle(mHandle);

Ich möchte zusätzlich, dass das Programm eine Fehlermeldung "Client.exe läuft bereits !" ausgibt, wenn dies der Fall ist. Bedingung für das abbrechen soll also sein, dass entweder eine Festung.exe bereits läuft oder eine client.exe (nichtausschließendes ODER).

Danke für eure Hilfe