Hallo Dezipaitor
habe nun nach dem
mutex gesucht, bin allerdings auf folgendes gestossen, was mein Zweck erfüllen würde.
Kannst Du mir bestätigen das dies auch für Terminal Server geht oder müsste ich noch etwas hizufügen ?
Delphi-Quellcode:
var
MyAtom: ATOM;
initialization
MyAtom := GlobalFindAtom('{03D1CB1A-5C2C-4B0D-9311-F585653FF733}');
if MyAtom <> 0 then
begin
MessageBox(0, 'Programm läuft bereits.', nil, MB_OK or MB_ICONEXCLAMATION);
MyAtom := 0;
Halt(0);
end else
MyAtom := GlobalAddAtom('{03D1CB1A-5C2C-4B0D-9311-F585653FF733}');
finalization
if MyAtom <> 0 then GlobalDeleteAtom(MyAtom);
end.