Zweiter Aufruf verhindern

[Elspass]

Moin, Moin,
wie kann ich verhindern das mein Programm ein zweites mal aufgerufen wird? :gruebel:

Gruß Jörg

[Jürgen Thomas]

Hallo,

die Suche im Forum nach Mutex Programmstart liefert Dir erfolgreiche Verfahren.

Gruß Jürgen

[Elspass]

Vielen Dank!
Haben ich nicht gefunden :oops:

[Klaus01]

Dann schau mal bitte hier (Mutex).

Grüße Klaus

[Tommy1988]

Ich mach das immer so:

Delphi-Quellcode:

var
 mHandle: THandle;
// [...]

initialization
   mHandle := CreateMutex(nil, True,
    '(Application.ExeName)'); // Wichtige zeile
     if GetLastError = ERROR_ALREADY_EXISTS then
     begin
     Halt;
  { Halt stopt in dem Fall das 2. starten des Programms.
    Man könnte auch eine MessageBox hierhinmachen oder soetwas ..}

finalization
 if mHandle <> 0 then
   CloseHandle(mHandle);
end. // Programmende

[Christian Seehase]

Moin Tommy,

das sieht so aus, als würdest Du die Abfrage in einer Unit machen.
Wenn Du das zu Beginn der Projektdatei einfügst (vor Application.Initialize), kannst Du Dir auch ein HALT sparen.

[Elspass]

Sorry Klaus,

ich hatte vor meiner Frage hier im Forum schon gesucht. Nach dem Tip Mutex Programmstart zu suchen wurde ich schon fündig...
Vielen Dank für die schnelle Hilfe