Event beim Schließen / "Abschiessen" des Programms

[KahPee]

Vielleicht ist das auch der falsche Ansatz (weil hier jemand fragt was hab ich davon). Ich habe vor, dass das Programm nicht zweimal gestartet werden kann. Mein erster Gedanke war beim Starten zu gucken ob die "MeinProgramm.exe" schon gestartet ist. Nur ist es so, dass sich das Programm logischer Weise dann selbst erkennt^^. Nun sollte eine Booleanvariable in einer Datei genau das Problem beheben. Beim Start wird die Variable auf true und beim schließen auf false gesetzt. Das programm startet in der Folge nur wenn diese Variabele auf false steht. Wenn das Programm nun aber "abgeschossen" wird. Weil es einen Bug hat und nicht mehr weiterläuft. Dann gibt es das Problem, dass man den Wert erst per Hand ändern muss damit das Programm wieder startet.

Gibt es noch andere Lösungsvorschläge - jetzt wo ich ein bisschen klarer ausgedrückt habe worum es mir eigentlich geht?

mfg Kahpee

[rollstuhlfahrer]

Die eleganteste Art und Weise, ein Programm vor mehrfachem Starten zu schützen ist eine Mutex. Einfach mal suchen, dann findest du auch die Beispiele dazu.

ein paar Links:

• Link 1 (Delphi-Library)
• Link 2 (Mutex und Programm nicht doppelt starten)
• Link 3 (Verhindern eine Anwendung mehrfach zu starten)

Bernhard

[idefix2]

Delphi-Quellcode:

procedure AbortIfNotUnique (const Bezeichnung: string);
begin
  createMutex( nil, true, PWideChar(Bezeichnung));
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    MessageDlg('Das Programm '+Bezeichnung+' ist schon in Betrieb'#13#10
                +'Sie können immer nur eine Version des Programmes starten',
                mtError,[mbOk],0);
    halt;
  end;
end;