怎样知道当前操作系统是什么 ？

Question

Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2Private Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion 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 Boolean
Dim Ver As OSVERSIONINFO, sVersion As String
    Ver.dwOSVersionInfoSize = Len(Ver)
    GetVersionEx Ver
    sVersion = Ver.dwMajorVersion & "." & Ver.dwMinorVersion & "." & Ver.dwBuildNumber Mod 65536
    Select Case Ver.dwPlatformId
        Case VER_PLATFORM_WIN32_WINDOWS
            If Ver.dwMajorVersion = 4 And Ver.dwMinorVersion = 10 Then
                当前操作系统 = "Windows 98 " & sVersion
            Else
              If Ver.dwMajorVersion = 4 And Ver.dwMinorVersion = 90 Then
                当前操作系统 = "Windows Millennium " & sVersion
              Else
                当前操作系统 = "Windows 95 " & sVersion
              End If
            End If
        Case VER_PLATFORM_WIN32_NT
           If Ver.dwMajorVersion = 5 And Ver.dwMinorVersion = 0 Then
              当前操作系统 = "Windows 2000 " & sVersion
           Else
              当前操作系统 = "Windows NT " & sVersion
           End If
        Case Else
            当前操作系统 = "Win32s " & sVersion
     End Select您自己试试吧！

Answer 1

Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2Private Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion 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 Boolean
Dim Ver As OSVERSIONINFO, sVersion As String
    Ver.dwOSVersionInfoSize = Len(Ver)
    GetVersionEx Ver
    sVersion = Ver.dwMajorVersion & "." & Ver.dwMinorVersion & "." & Ver.dwBuildNumber Mod 65536
    Select Case Ver.dwPlatformId
        Case VER_PLATFORM_WIN32_WINDOWS
            If Ver.dwMajorVersion = 4 And Ver.dwMinorVersion = 10 Then
                当前操作系统 = "Windows 98 " & sVersion
            Else
              If Ver.dwMajorVersion = 4 And Ver.dwMinorVersion = 90 Then
                当前操作系统 = "Windows Millennium " & sVersion
              Else
                当前操作系统 = "Windows 95 " & sVersion
              End If
            End If
        Case VER_PLATFORM_WIN32_NT
           If Ver.dwMajorVersion = 5 And Ver.dwMinorVersion = 0 Then
              当前操作系统 = "Windows 2000 " & sVersion
           Else
              当前操作系统 = "Windows NT " & sVersion
           End If
        Case Else
            当前操作系统 = "Win32s " & sVersion
     End Select