Mehrere Instanzen verhindern

**Rapthor**

Habe folgendes in meiner Unit1 zu stehen:

Delphi-Quellcode:

			Initialization //Verhindern, dass das Programm mehrmals gestartet wird

   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);

Hierbei wird verhindert, dass ein Programm namens Festung.exe doppelt ausgeführt wird. Was muss ich jetzt machen, damit die Prozedur auch überprüft , ob eine client.exe schon läuft? Denn in diesem Falle soll der gleiche Effekt auftreten, wie wenn Festung.exe schon ausgeführt wurde.

Mehrere Instanzen verhindern

Mehrere Instanzen verhindern

Forumregeln