Teminal Server Processes

[danieleh]

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.