hi,
ich glaube da gab es hier auch schon mal einen betrag für diese problem.
folgende möglichkeit gibt es: (in deine .dpr datei einfügen)
Delphi-Quellcode:
var
mHandle: THandle;
begin
mHandle := CreateMutex(nil,True,'Progammname'); (* hier den Namen eintragen *)
if GetLastError = ERROR_ALREADY_EXISTS
then Halt
else
begin
Application.Initialize;
...
Application.Run;
end;
if mHandle <> 0 then
CloseHandle(mHandle);
end.
gruß
eassy