Programm nur 1x starten

[Daniel B]

Hallöchen,

verhindern das Dein Programm nur einmal gestartet wird, kannst Du zum Bleistift hiermit:

Delphi-Quellcode:

var
  mHandle: THandle;

implementation
{$R *.dfm}

//Code, Code, Code...
//Prozeduren, Funktionen...

Initialization //Verhindern, dass das Programm mehrmals gestartet wird
   mHandle := CreateMutex(nil, True, 'NameDerExe');
     if GetLastError = ERROR_ALREADY_EXISTS then
     begin
       Halt;
end;
finalization
   if mHandle <> 0 then
     CloseHandle(mHandle);
end. //Programmende

Grüsse, Daniel