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

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

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.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 060 • TDictionary Custom Sort 6 162 • Fast Watermark Sources 5 956 • 3D Designer 8 830 • Sik Screen Capture 6 301 • Patch Maker 6 714 • Айболит (remote control) 6 706 • ListBox Drag & Drop 5 561 • Доска для игры Реверси 95 877 • Графические эффекты 6 931 • Рисование по маске 6 167 • Перетаскивание изображений 5 092 • Canvas Drawing 5 464 • Рисование Луны 5 179 • Поворот изображения 4 719 • Рисование стержней 3 330 • Paint on Shape 2 572 • Генератор кроссвордов 3 465 • Головоломка Paletto 2 772 • Теорема Монжа об окружностях 3 573 • Пазл Numbrix 2 342 • Заборы и коммивояжеры 3 026 • Игра HIP 1 982 • Игра Go (Го) 1 903 • Симулятор лифта 2 257 • Программа укладки плитки 1 968 • Генератор лабиринта 2 422 • Проверка числового ввода 2 099 • HEX View 2 428 • Физический маятник 2 054

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

Похожие по теме исходники