Programm nur einmal starten

[ghost007]

Hallo,
wie kann ich machen, das man meine programm nur einmal starten kann? also man soll niemals 2 oder mehr parallel laufen lassen können.

[Bernhard Geyer]

Such mal nach SEMAPHORE. Frage wurde schon öfter gestellt.

[inherited]

Delphi-Quellcode:

unit NichtDoppeltStarten;

interface

implementation

uses windows,Dialogs,sysutils;

var mHandle: THandle;    // Mutexhandle

Initialization
  mHandle := CreateMutex(nil,True,'xxxxx'); 
  // 'xxxxx' Der Anwendungsname ist hier einzutragen
  if GetLastError = ERROR_ALREADY_EXISTS then begin   
    showMessage('Anwendung läuft bereits!!!!!');   
    // Wenn du keine Meldung willst, Auskommentieren
    Halt;
  end;

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

[ils566]

z.B. mit der beigefügten Unit. Funktioniert auf jeden Fall mit D6/D7 und W2K.
Gruß
ils