Hallo,
ich mal Folgendes als Code gefunden und auch schon benutz.. Einfach deine Projektdatei entsprechend anpassen:
Delphi-Quellcode:
PROGRAM Project1;
USES
Forms
{ Folgende Units müssen hinzugefügt werden }
Windows,
Dialogs,
{ Ende der hinzugefügten Units }
Unit1 in 'Unit1.pas' { Form1 };
{$R *.RES}
VAR
hMutex: THandle;
begin
hMutex := CreateMutex(nil, True, 'Mein Programm');
{Der letzte Parameter ist systemweit gültig und sollte daher eindeutig sein,
damit es zu keiner Kollision mit anderen Programmen kommt}
IF GetLastError = ERROR_ALREADY_EXISTS THEN BEGIN ShowMessage('Das Programm kann nur einmal gestartet werden!'); Halt; { Programm wird beendet }
END;
{Appl ikation wird erstellt}
Application.Initialize;Application.CreateForm(TForm1, Form1);
Application.Run;
{Freigabe des erstellen Objekts}
IF hMutex <> 0 THEN CloseHandle(hMutex);
END.
Gruß
Zu langsam