windowsversion.dws

script language

case GetWindowsVersion of
  VER_WIN32S: PrintLn('System: Win32S');
  VER_WIN95: PrintLn('System: Windows 95');
  VER_WIN98: PrintLn('System: Windows 98');
  VER_WIN98SE: PrintLn('System: Windows 98 Second Edition');
  VER_WINME: PrintLn('System: Windows ME');
  VER_WINNT: PrintLn('System: Windows NT');
  VER_WINNT4: PrintLn('System: Windows NT 4.0');
  VER_WIN2000: PrintLn('System: Windows 2000');
end;