Doppelstart verhindern.

[Mathias]

Wie kann ich verhindern, da ein Programm doppelt gestartet wird.
Ich denke unter Windows könnte man dies mit FindWindow lösen.

Gibt es dafür auch etwas Platformübergreifendes ?

[creed steiger]

http://wiki.freepascal.org/UniqueInstance

sollte helfen denke ich

[SoE]

Unter Windows macht man das eigentlich so:
(wobei es unter Windows mehrere gut funktionierende Möglichkeiten gibt.)
btw: Über UniqueInstance hab' ich bisher nur Gutes gehört...

Code: Alles auswählen

 
 CONST
  MutexName = 'MeinProgramm MuTeX';
 
 VAR
  hMutex: THandle;
 
Begin
 Try
  hMutex:= CreateMutex(Nil, True, MutexName);
 
   If (hMutex = 0) Or (GetLastError = ERROR_ALREADY_EXISTS)
   Then Exit;
 
  Try
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.Run;
  Finally
   If hMutex <> 0
   Then CloseHandle(hMutex);
  End;
 Except
  // LOG...
 End;
End.
 

[Mathias]

http://wiki.freepascal.org/UniqueInstance

sollte helfen denke ich

Danke, dies scheint recht gut zu funktionieren.
Was noch ein Tüpfchen auf dem i wäre, wen es das schon gestartet in den Vordergrund holen würde.

Die Anleitung gibt es sogar in deutsch: http://wiki.lazarus.freepascal.org/UniqueInstance/de

[Michl]

Nur als Ergänzung. Man könnte das Ganze auch per SimpleIPC (http://www.freepascal.org/docs-html/3.0.0/fcl/simpleipc/tsimpleipc.html) lösen. Damit kann man verschiedene zusätzliche Kommandos einpflegen.

[SoE]

Ich hab' noch 'ne andere Version gefunden:...
Die scheint neuer zu sein, hab' sie aber noch nicht ausprobiert...

[Mathias]

Die scheint neuer zu sein, hab' sie aber noch nicht ausprobiert...

Hast du diese aus der Zukunft geholt ?
Alles Jahrgang 2035.

Die Dateien scheine alle gleich gross zu sein, wie im obigen Link.