Teminal Server Processes

[danieleh]

Danke für den Tipp Heiko. Da ich mich mit TS nicht auskenne kann ich nicht abschätzen was der Code auf dem TS für Auswirkungen hat (oder ob es zusätzliches Zeug dazu braucht)

ok, Danke Christian, dies die Mutex:

Delphi-Quellcode:

implementation

uses windows,Dialogs,sysutils;

var mHandle: THandle;    // Mutexhandle

Initialization
  mHandle := CreateMutex(nil,True,'Global\xxxxx');
  // mHandle := CreateMutex(nil,True,'xxxxx');
  // 'xxxxx' Der Anwendungsname ist hier einzutragen
  if GetLastError = ERROR_ALREADY_EXISTS then begin   
    // Anwendung läuft bereits
    {showMessage('Anwendung läuft bereits!!!!!');}   
    // Wenn du deine Meldung willst, mach die Klammern weg
    Halt;
  end;

finalization   // ... und Schluß
  if mHandle <> 0 then
    CloseHandle(mHandle)
end. {Dieter Hirt}