获取操作系统版本

Function GetWindowsVersion: String;var AWin32Version: Extended; os:string;begin os:='Windows '; AWin32Version := StrtoFloat(format('%d.%d' ,[Win32MajorVersion, Win32MinorVersion])); if Win32Platform=VER_PLATFORM_WIN32s then Result := os + '32' else if Win32Platform=VER_PLATFORM_WIN32_WINDOWS then begin if AWin32Version=4.0 then Result := os + '95' else if AWin32Version=4.1 then Result := os + '98' else if AWin32Version=4.9 then Result := os + 'Me' else Result := os + '9x' end else if Win32Platform = VER_PLATFORM_WIN32_NT then begin if AWin32Version=3.51 then Result := os + 'NT 3.51' else if AWin32Version=4.0 then Result := os + 'NT 4.0' else if AWin32Version=5.0 then Result := os + '2000' else if AWin32Version=5.1 then Result := os + 'XP' else if AWin32Version=5.2 then Result := os + 'Server 2003' else if AWin32Version=6.0 then Result := os + 'Vista' else if AWin32Version=6.1 then Result := os + '7' else Result := os ; end else Result := os + 'Unknown';end;