Schnell u. einfach rausfinden ob Win9x oder Win NT / 2k / XP

[NicoDE]

Delphi-Quellcode:

if (GetVersion and DWORD($80000000)) = 0 then
begin
  // WinNT
end
else
begin
  // Win32s/Win9x
end;

ps: Typecast wegen Delphi2+3 (DWORD ist vorzeichenbehaftet).