Как определить, запущено ли приложение в Windows NT

Умирает Питер Нортон. На том свете ему за многочисленные заслуги перед компьтерщиками всего мира предлагают выбрать место жительства - Рай или Ад. Походил Нортон по Раю, посмотрел - Ангелы на лирах играют, нектар пьют - скучно. Пошел на Ад посмотреть. Заходит, а там Билл Гейтс за компом сидит - клавиши топчет. Глянул на это дело Питер и пулей к Богу: "Все - говорит - хочу в Аду жить!". Бог начинает выяснять причину такого выбора, Нортон объясняет про скуку в Раю и что в Аду Билл Гейтс за компом развлекается. На что Бог отвечает Нортону: - Он не развлекается - это у него Адское наказание. - Какое ?! - Он пишет MicrosoftOffice, чтоб работал по OS/2 на ЕС-1840.

Следующий кодкомпилируется как на 16-ти, так и на 32-битных платформах.

{$IFNDEF WIN32}
const
  WF_WINNT = $4000;
{$ENDIF}

function IsNT : bool;
{$IFDEF WIN32}
var
  osv : TOSVERSIONINFO;
{$ENDIF}
begin
  result := true;
  {$IFDEF WIN32}
  GetVersionEx(osv);
  if osv.dwPlatformId = VER_PLATFORM_WIN32_NT then
    exit;
  {$ELSE}
  if ((GetWinFlags and WF_WINNT) = WF_WINNT ) then
    exit;
  {$ENDIF}
  result := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsNt then
    ShowMessage('Running on NT')
  else
    ShowMessage('Not Running on NT');
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 796 • TDictionary Custom Sort 6 793 • Fast Watermark Sources 6 581 • 3D Designer 9 534 • Sik Screen Capture 6 918 • Patch Maker 7 365 • Айболит (remote control) 7 303 • ListBox Drag & Drop 6 168 • Доска для игры Реверси 98 109 • Графические эффекты 7 481 • Рисование по маске 6 774 • Перетаскивание изображений 5 630 • Canvas Drawing 6 007 • Рисование Луны 5 798 • Поворот изображения 5 251 • Рисование стержней 3 844 • Paint on Shape 2 999 • Генератор кроссвордов 3 955 • Головоломка Paletto 3 138 • Теорема Монжа об окружностях 3 969 • Пазл Numbrix 2 620 • Заборы и коммивояжеры 3 431 • Игра HIP 2 347 • Игра Go (Го) 2 264 • Симулятор лифта 2 664 • Программа укладки плитки 2 225 • Генератор лабиринта 2 775 • Проверка числового ввода 2 385 • HEX View 2 720 • Физический маятник 2 411