Количество запущенных копий программы

uses SysUtils,WinTypes,WinProcs,WinCrt;

NumInstances,SavePrevInst : word;

procedure GetInstanceData(hInst,Offset,Size:Word); far; external 'KERNEL';

SavePrevInst := hPrevInst;

NumInstances := 0;

While hPrevInst <> 0 do

GetInstanceData(hPrevInst,Ofs(hPrevInst),SizeOf(hPrevInst));

Inc(NumInstances);

end;

Writeln('Уже запущено ',NumInstances,' копий программы');

hPrevInst := SavePrevInst;

end.