[iisyyyys]

Код:

uses
SyncObjs;
procedure CheckDbl;
var
CheckEvent: TEvent;
begin
  CheckEvent:= TEvent.Create(nil, false, true, 'MYPROGRAM_CHECKEXIST');
  if CheckEvent.WaitFor(10) <> wrSignaled then halt;
end;