Советы по Delphi

         

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


    program CrtApp;
uses SysUtils,WinTypes,WinProcs,WinCrt;
var NumInstances,SavePrevInst : word;
procedure GetInstanceData(hInst,Offset,Size:Word); far; external 'KERNEL';
begin SavePrevInst := hPrevInst;

NumInstances := 0; While hPrevInst <> 0 do begin GetInstanceData(hPrevInst,Ofs(hPrevInst),SizeOf(hPrevInst)); Inc(NumInstances); end; Writeln('Уже запущено ',NumInstances,' копий программы'); hPrevInst := SavePrevInst; end.
[000385]



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