如何判断操作系统的版本？具体怎样操作

Question

在线等

Answer 1

'//第1个示例
Private Declare Function GetVersion Lib "kernel32" () As Long
Public Function GetWinVersion() As String
    Dim Ver As Long, WinVer As Long
    Ver = GetVersion()
    WinVer = Ver And &HFFFF&
    'retrieve the windows version
    GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")
End Function
Private Sub Form_Load()
    MsgBox "Windows version: " + GetWinVersion
End Sub'//第2个示例
Public Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As IntegerPublic Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128
End Type
'获得系统版本
Public Function getVersion() As String
   Dim osinfo As OSVERSIONINFO
   Dim retvalue As Integer   osinfo.dwOSVersionInfoSize = 148
   osinfo.szCSDVersion = Space$(128)
   retvalue = GetVersionExA(osinfo)   With osinfo
   Select Case .dwPlatformId    Case 1
    
        Select Case .dwMinorVersion
            Case 0
                getVersion = "Windows 95"
            Case 10
                getVersion = "Windows 98"
            Case 90
                getVersion = "Windows Mellinnium"
        End Select    Case 2
        Select Case .dwMajorVersion
            Case 3
                getVersion = "Windows NT 3.51"
            Case 4
                getVersion = "Windows NT 4.0"
            Case 5
                If .dwMinorVersion = 0 Then
                    getVersion = "Windows 2000"
                Else
                    getVersion = "Windows XP"
                End If
        End Select

Answer 2

对不起 没贴全'//第2个示例
Public Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As IntegerPublic Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128
End Type
'获得系统版本
Public Function getVersion() As String
   Dim osinfo As OSVERSIONINFO
   Dim retvalue As Integer   osinfo.dwOSVersionInfoSize = 148
   osinfo.szCSDVersion = Space$(128)
   retvalue = GetVersionExA(osinfo)   With osinfo
   Select Case .dwPlatformId    Case 1
    
        Select Case .dwMinorVersion
            Case 0
                getVersion = "Windows 95"
            Case 10
                getVersion = "Windows 98"
            Case 90
                getVersion = "Windows Mellinnium"
        End Select    Case 2
        Select Case .dwMajorVersion
            Case 3
                getVersion = "Windows NT 3.51"
            Case 4
                getVersion = "Windows NT 4.0"
            Case 5
                If .dwMinorVersion = 0 Then
                    getVersion = "Windows 2000"
                Else
                    getVersion = "Windows XP"
                End If
        End Select    Case Else
       getVersion = "Failed"
   End Select   End With
End Function