| Статистика | 
|
|
Каталог статей
Количество запущенных копий программы
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.
|
Категория: API | Добавил: Lerka (22 Ноя 2012)
|
Просмотров: 471
5
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
