Programm mehrfach starten

[STS301]

ich benutze zur Zeit das damit es nicht mehrfach geöffnet wird, vielleicht hilft der Trick

Delphi-Quellcode:

var mHandle: THandle;    // Mutexhandle

Initialization 
  mHandle := CreateMutex(nil,True,'schuelerplaner');
  // '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 <> 1 then //1 statt 0, vielleicht funktioniert es
    CloseHandle(mHandle)