Wahlweise mehrfachen Programmstart verhindern

[hsbc]

Hallo allerseits,

ich verwende in meiner Anwendung folgenden Code:

Delphi-Quellcode:

initialization
  mHandle := CreateMutex(nil, true, 'anwendung.exe');
  if (GetLastError = Error_Already_Exists) then halt;

finalization
  if mHandle <> 0 then CloseHandle(mHandle);

welcher auch einwandfrei funktioniert.

Jetzt möchte ich in das Programm einen Schalter einbauen, wo der Anwender selbst auswählen kann, ob er zulassen möchte, dass die Anwendung mehrfach gestartet werden kann oder nicht. Gibt es hier eine Möglichkeit ???

mfg
Herbert