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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Землетрясение в Штатах сорвало выступление Билла Гейтса. Наконец-то старый спор всех пользователей компьютеров: «кто главнее и круче — Билл или Бог?» полностью разрешен в пользу последнего. Билли посрамлен.

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.

{/codecitation}

Добавить комментарий