Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007

Следующий кодкомпилируется как на 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;

Взято из https://forum.sources.ru


function IsNT: bool;
var osv: TOSVERSIONINFO;
begin result := true;
 
GetVersionEx(osv);
 
if osv.dwPlatformId = VER_PLATFORM_WIN32_NT then exit;
  result
:= false;
end;
 
procedure TForm1
.Button1Click(Sender: TObject);
begin
 
if IsNt then
   
ShowMessage('Running on NT')
 
else
   
ShowMessage('Not Running on NT');

Взято с сайта https://blackman.wp-club.net/