Количество запущенных копий программы
|
Землетрясение в Штатах сорвало выступление Билла Гейтса. Наконец-то старый спор всех пользователей компьютеров: "кто главнее и круче - Билл или Бог?" полностью разрешен в пользу последнего. Билли посрамлен.
|
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.
|
|
