Советы по Delphi

       

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


program CrtApp;
uses SysUtils,WinTypes,WinProcs,WinCrt;
varNumInstances,SavePrevInst : word;
procedure GetInstanceData(hInst,Offset,Size:Word); far; external 'KERNEL';
beginSavePrevInst := hPrevInst;NumInstances := 0;While hPrevInst <> 0 dobeginGetInstanceData(hPrevInst,Ofs(hPrevInst),SizeOf(hPrevInst));Inc(NumInstances);end;Writeln('Уже запущено ',NumInstances,' копий программы');hPrevInst := SavePrevInst;end.
[000385]


Содержание раздела