Mehrfachstart verhindern
Ü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:
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:
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.