So, habe das folgendermaßen gemacht:
Delphi-Quellcode:
unit Unit1;
interface
implementation
uses windows,Dialogs,sysutils;
var mHandle: THandle;
// Mutexhandle
Initialization
mHandle := CreateMutex(
nil,True,'
{7A366489-37B0-4E63-81A0-F0BBC281614D}');
// 'xxxxx' Der Anwendungsname ist hier einzutragen
if GetLastError = ERROR_ALREADY_EXISTS
then begin
// Anwendung läuft bereits
{showMessage('Anwendung läuft bereits!!!!!');}
// Wenn du deine Meldung willst, mach die Klammern weg
Halt;
end;
finalization // ... und Schluß
if mHandle <> 0
then
CloseHandle(mHandle)
end.
{Dieter Hirt}
In der *.dpr selbst steht nichts drin, was eine vorherige Überprüfung durchführt. Weiterhin bekomme ich beim zwieten Start eine
Exception. Blöd, dass man so etwas nicht debuggen kann...