Mehrfachstart verhindern
CreateMutex,
Mutex, HPrevInst
--------------------------------------------------------------------------------
Über eine
Mutex lässt sich verhindern, dass ein Programm mehrmals gestartet werden kann.
Die
Mutex sollte zum frühstmöglichen Zeitpunkt erstellt werden. Man kann die Zeilen beispielsweise in einer eigenen
Unit ablegen und diese an erster Stelle der Uses-Klausel schreiben.
Der dritte Parameter von CreateMutex vergibt einen Namen mit dem die
Mutex im System identifiziert werden kann (z.B. den Programmnamen).
Der Projekt-Quelltext könnte dann in etwa so aussehen:
Delphi-Quellcode:
program Project1;
uses
mutex in '
mutex.pas',
//Hier wird das Mutex-Objekt erstellt.
Forms,
Unit1
in '
Unit1.pas'
{Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Die
Unit für das
Mutex-Objekt sieht folgendermaßen aus:
Delphi-Quellcode:
unit mutex;
interface
implementation
Uses Windows;
var
mHandle: THandle;
initialization
//Der Name für die Mutex muss natürlich angepasst werden
mHandle := CreateMutex(
Nil, True, PChar('
Programmname'));
if GetLastError = ERROR_ALREADY_EXISTS
then
//Die Bedingung trifft zu, wenn die Mutex schon existiert.
//Dies ist der Fall, wenn das Programm bereits gestartet
//wurde.
Halt;
finalization
if mHandle <> 0
then
CloseHandle(mHandle);
end.
Für Delphi 1 (16 Bit) gibt es eine wesentlich einfachere Variante. Die Anwendung bekommt das
Handle der letzten aktiven Instanz mitgeteilt. Man muss also nur nachsehen, ob die entsprechende Variable (HPrevInst) 0 enthält. Die Variable ist zwar auch in späteren Versionen noch verfügbar, erfüllt aber seit Delphi 2 keinen Zweck mehr.