Mehrfachstart verhindern - klappt nicht ganz

[Muellermilchtrinker]

Hallo DP,

ich habe ein Programm, bei dem ich einen Mehrfachstart verhindern möchte. Bei DT hab ich folgenden Tipp gefunden: http://www.delphi-treff.de/tipps/sys...rt-verhindern/

Also in mein Projektfile eingefügt, dass sieht nun so aus:

Delphi-Quellcode:

program Project1;

uses
  mutex in 'mutex.pas', //Hier wird das Mutex-Objekt erstellt.
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {AboutBox},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.Run;
end.

Und die mutex.pas sieht so aus:

Delphi-Quellcode:

unit mutex;

interface

implementation

uses
  Windows, Dialogs;

var
  mHandle: THandle;

initialization
  //Der Name für die Mutex muss natürlich angepasst werden
  mHandle := CreateMutex(nil, True, PChar('Meine Caption'));

  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.
    ShowMessage('Anwendung läuft bereits!');
    Halt;

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

So, nun warum poste ich das alles? Ganz einfach weil es nicht funktioniert. Möchte ich nun meine Projekt starten (F9), dann sehe ich, wie der Compiler arbeitet und dann wird das Programm wieder beendet. Die ShowMessage() wird jedoch nicht ausgeführt. Kommentiere ich jetzt aber die mutex.pas aus, dann startet mein Programm wie gewohnt.

Vielleicht kann mir jemand helfen. Danke schonmal. :thumb:

[himitsu]

Um das ShowMessage und Halt würde ich ein Begin-End drumrummachen.

PS: Mit Debuggen (F7), anstatt F9, wäre dieses bestimmt aufgefallen.

PS:

Delphi-Quellcode:

if (mHandle = 0) and (GetLastError = ERROR_ALREADY_EXISTS) then

,
denn GetLastError gibt den letzten Fehler und nicht den Zustand des letzten Befehls zurück.
Sowas steht übrigens im MSDN drin ... die ersten 2 Zeilen im Abschnitt "Return Value" ... GetLastError ist da nur bei "If the function fails" erwähnt.

[Coffeecoder]

Hallo,

Es ist mir klar, dass du schon was gefunden hast.
Aber guck das hier mal an, damit hatte ich keine Probleme und meine Applikation wird nur einmal ausgeführt!

[Muellermilchtrinker]

Upps. :oops: Der begin-end BLock hat echt gefehlt. Wieso bin ich da nicht selber drauf gekommen. Danke :thumb: