multiple instanzen (>2) einer Anwendung

[danieleh]

Hallo

Mit der Erstellung von mehreren (Global) Mutexes versuche ich eine Terminal-Server Anwendung auf 5 Instanzen zu limitieren (über die Sessions hinweg).
Etwas mit der Logik oder meinem Verständnis stimmt allerdings nicht ganz.
Die Mutexes werden zwar wie geplant nacheinnader erstellt, doch sie werden nicht ordnungsgemäss released wenn eine Instanz schliesst.

Also so:

Instanz 1: Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF735}
Instanz 2: Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF734}
Instanz 3: Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF733}
Instanz 4: Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF732}
Instanz 5: Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF731}
Instanz 6: Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF730} --> wird angehalten

schliesse ich zb. Instanz 4 sollte diese frei werden und eine weitere Instanz geöffnet werden können.
Dem ist aber nicht so. Mutex von Instanz 4 wird erst dann wieder frei, wenn ich auch die Instanz 5 schliesse.

Delphi-Quellcode:

var
  i: integer;
  mH: THandle;
  mutex_x: string;

const 
 mutex_0: 'Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF730}'

initialization

    sl := TStringList.Create;
    sl.CommaText := 'Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF730}, ' +
                    'Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF731}, ' +
                    'Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF732}, ' +
                    'Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF733}, ' +
                    'Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF734}, ' +
                    'Global\{03D1CB1A-5C2C-4B0D-9311-F585653FF735}';

    for i := 0 to sl.Count-1 do
    begin
      if openmutex(MUTEX_ALL_ACCESS, False, (PChar(sl[i])))=0
      then begin
       mutex_x:= sl[i];
      end;
    end;
    sl.Free;
    if mutex_x=mutex_0 then
    begin
      MessageBox(0, PChar(MSG004), nil, MB_OK or MB_ICONEXCLAMATION);
      Halt(0);
    end else
    mH := CreateMutex(nil,True,(PChar(mutex_x)));


finalization

  if mH <> 0 then
  begin
   // ReleaseMutex(mH);
   // mH := 0;
    CloseHandle(mH)
  end;

Habe jede erdenkliche Variante ausprobiert und bin am Ende meines Alphabets.
Vielleicht hat jemand eine Erklärung ?