Verhindern eine Anwendung mehrfach zu starten

[Moony]

Also:

• 1.
  Wenn man in den tausend anderen Units auch tausend andere Initialisierungen hat, dann MUSS man die Überprüfungsunit auch als aller erste Unit in der *.dpr in die uses aufnehmen. Dann funktioniert auch die Überprüfung ohne weitere Exceptions.
  
  2. Wenn die Anwendung bereits geöffnet ist, dann soll diese auch in den Vordergrund geholt werden. Ich habe das so versucht, aber ohne Erfolg:
  
  Delphi-Quellcode:

    mHandle := CreateMutex(nil,True,'{7A366489-37B0-4E63-81A0-F0BBC281614D}');
    if GetLastError = ERROR_ALREADY_EXISTS then
    begin
       if IsIconic(mHandle) then
        ShowWindow(mHandle, SW_RESTORE)
      else SetForegroundWindow(mHandle);
      Halt;
    end;