获取操作系统版本号

function TForm1.GetOSVersion:String;
var OSVersion:TOSVersionInfo;
begin
  OSVersion.dwOSVersionInfoSize:=SizeOf(OSVersion);
  GetVersionEx(OSVersion);
  case OSVersion.dwPlatformId of
    VER_PLATFORM_WIN32_WINDOWS: Result:='WIN';
    VER_PLATFORM_WIN32_NT:      Result:='NT';
    else                        Result:='WIN32';
  end;
  Result:=Result+IntToStr(OSVersion.dwMajorVersion)+'.'+IntToStr(OSVersion.dwMinorVersion);
end;