注册表
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
VersionNumber
就是版本号,你还可以查到很多系统信息

解决方案 »

  1.   

    使用GetVersionEx()API,参数请看MSDN。
      

  2.   

    Function IsWindows95() As Boolean
        Const dwMask95 = &H1&
        IsWindows95 = (GetWinPlatform() And dwMask95)
    End Function'-----------------------------------------------------------
    ' FUNCTION: IsWindowsNT
    '
    ' Returns true if this program is running under Windows NT
    '-----------------------------------------------------------
    '
    Function IsWindowsNT() As Boolean
        Const dwMaskNT = &H2&
        IsWindowsNT = (GetWinPlatform() And dwMaskNT)
    End Function