请问如何知道具体的Windows的版本号？

Question

VB自带的sysinfo（Microsoft sysinfo control 6.0），OSPlatform得到操作系统类型，0 Win32s ,1 Windows 95 ,2 Windows NT 。OSVersion 得到版本

Answer 1

你还要获得以下信息
osVer.dwMajovVersion '主版本号
osVer.dwMinorVersion '副版本号
osVer.dwBuildNumber '构建版本号Private Type OSVERSIONINFO
  dwOSVersionInfoSize As Long
  dwMajovVersion As Long
  dwMinorVersion As Long
  dwBuildNumber As Long
  dwPlatformId As Long
  szCSDVersion As String * 128
End TypePrivate Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As LongPrivate Sub Command1_Click()
  Dim osVer As OSVERSIONINFO
  Dim rc As Long
  osVer.dwOSVersionInfoSize = Len(osVer)
  rc = GetVersionEx(osVer)
  If rc = 0 Then
    MsgBox "获取版本信息发生错误"
    End
  End If
  
  Dim msg As String
  
  Select Case osVer.dwPlatformId
    Case 0
      msg = "Windows 32s "
    Case 1
      msg = "Windows 95 "
    Case 2
      msg = "Windows NT "
  End Select
  
  Dim ver_major As String
  Dim ver_minor As String
  Dim Build As String
  
  ver_major = osVer.dwMajovVersion
  ver_minor = osVer.dwMinorVersion
  Build = osVer.dwBuildNumber
  msg = msg + ver_major + "." + ver_minor + " (Build )" + Build + ")"
  Text1.Text = msg
End Sub这是我以前的一段代码，稍加修改，windows 95显示时报为windows 95,你可以根据副版本来确定到底是95还是98

Answer 2

再看几篇差不多的
http://www.csdn.net/expert/topic/430/430063.xml?temp=.3889429