multiple instanzen (>2) einer Anwendung

[himitsu]

ich hab mal sozusagen in CreateMutex reingeschaut ....

Delphi-Quellcode:

Const mutex: Array[0..4] of AnsiString = (
  'Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF735}',
  'Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF733}',
  'Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF734}',
  'Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF732}',
  'Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF731}');

Var i: Integer;
  mH: THandle;

Initialization
  For i := 0 to High(mutex) do Begin
    mH := CreateMutexA(nil, True, PAnsiChar(mutex[i]));
    If mH <> 0 Then
      If GetLastError = ERROR_ALREADY_EXISTS Then Begin
        ReleaseMutex(mH);
        mH := 0;
      End Else Break;
  End;
  If mH = 0 Then Begin
    MessageBox(0, PChar(MSG004), nil, MB_OK or MB_ICONEXCLAMATION);
    Halt(0);
  End;

Finalization
  If mH <> 0 Then ReleaseMutex(mH);

End.