Mehrere Instanzen verhindern

[Rapthor]

Zitat:

In dem du auch eien Muztex für die client.exe erstellst?

So ?

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;

   mHandle := CreateMutex(nil, True, 'client.exe');
     if GetLastError = ERROR_ALREADY_EXISTS then
     begin
       ShowMessage('client.exe läuft bereits');
       Halt;
     end;

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

Das bringt bei mir aber garnichts. Der startet trotzdem fröhlich, obwohl client.exe läuft.