Event beim Schließen / "Abschiessen" des Programms

[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;