Prüfen, ob das Programm schon mal läuft

[buyden]

Hi,
kann man überprüfen, ob das eigene Programm schonmal gestartet ist, ich hab nämlich ne Datenbank mit Exklusivzugriff und da bekomm ich sofort ne Masse an Fehlern, wenn man fälschlicherweise das Programm zum zweiten Mal startet.

[Bernhard Geyer]

Schau dir mal die Diskussionen zum Thema CreateMutex an.

[Harry M.]

Binde diese Unit ein und das Programm wird sofort wieder beendet wenn es mehrmals gestart wird

Delphi-Quellcode:

unit Doppelstart;

interface

implementation
uses windows,Dialogs,sysutils;

var mHandle: THandle;    // Mutexhandle


Initialization
  mHandle := CreateMutex(nil,True,'Programmname');
  if GetLastError = ERROR_ALREADY_EXISTS then begin   // Anwendung läuft bereits
     showMessage('Anwendung läuft bereits!!!!!');
     halt;
  end;

finalization   // ... und Schluß
  if mHandle <> 0 then CloseHandle(mHandle)
end.

[buyden]

Alles klar hab's schon

Vielen Dank