Question

怎样利用GetVersion函数来判断当前操作系统是Win95/98、Win2000/XP、Vista/Win7呢？

以下这个获得视窗操作系统版本的函数是通过GetVersion这个早期API实现的，可以判断返回当前系统是Win2000 or WinXP还是Windows ME。那么请问怎样修改才能使他进一步完善一些，能够判断Win95/98、WinME、Win2000/XP、Vista/Win7呢？

由于我这儿没装虚拟机，也没第二台机子作测试，麻烦哪位朋友弄过这个帮我修改一下吧，那个低位高位换算得我看不懂
也搜过网上不少示例，但几乎都是通过GetVersionEx实现的，而我就想用这个古老的GetVersion实现……

Private Function GetWinVersion() As String
Dim lngRetval, lngMajor, lngMinor As Long

lngRetval = GetVersion()
lngMinor = (lngRetval And &HFF00) \ &H100
lngMajor = (lngRetval And &HFF)
If CBool((lngRetval And &H80000000) = 0&) Then
If CBool(lngMajor >= 5&) Then
'Win2000 or WinXP
GetWinVersion = "Win2000 or WinXP"
Else
End If
ElseIf CBool(lngMajor = 4&) And CBool(lngMinor = 90&) Then
'Windows ME
GetWinVersion = "Windows ME"
Else
End If
End Function
1L 你的方法是通过调用终端服务实现的，这种方法存在局限，而且执行效率远不如API。由于我是要用在一个项目中的，所以你的方法不可取。

2L 你等于没回答问题

现将CSDN上得到的最佳答复公布出来

Private Function GetWinVersion() As String
Dim lngRetval, lngMajor, lngMinor As Long

lngRetval = GetVersion()
lngMinor = (lngRetval And &HFF00&) \ &H100
lngMajor = (lngRetval And &HFF)
If CBool((lngRetval And &H80000000) = 0&) Then
If lngMajor = 6 And lngMinor = 1 Then GetWinVersion = "windows 7"
If lngMajor = 6 And lngMinor = 0 Then GetWinVersion = "windows vista"
If lngMajor = 5 And lngMinor = 1 Then GetWinVersion = "windows xp"
If lngMajor = 5 And lngMinor = 0 Then GetWinVersion = "windows 2000"

ElseIf CBool(lngMajor = 4&) And CBool(lngMinor = 90&) Then
'Windows ME
GetWinVersion = "Windows ME"
Else
End If
End Function

Answer 1

这个网上搜的，不是用API，用VB的GetObject直接判断操作系统
Private Sub Form_Load()
Dim strComputer, objWMIService, colItems, objItem, strOSversion As String
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each objItem In colItems
strOSversion = objItem.Version
Next

Select Case Left(strOSversion, 3)
Case "5.2"
strOSversion = "Windows Server 2003"
Case "5.0"
strOSversion = "Windows 2000"
Case "5.1"
strOSversion = "Windows XP"
Case "6.0"
strOSversion = "windows visita"
Case Else
strOSversion = "i don't know"
End Select
Me.AutoRedraw = True
Me.Cls
Print "你的操作系统是：" & strOSversion
End Sub

Answer 2

sorry,请译成汉语再发

Answer 3

Private Declare Function GetVersion Lib "kernel32" () As Long

Private Function GetWinVersion() As String
Dim lngRetval, lngMajor, lngMinor As Long

lngRetval = GetVersion()
lngMinor = (lngRetval And &HFF00) \ &H100
lngMajor = (lngRetval And &HFF)
If CBool((lngRetval And &H80000000) = 0&) Then
If CBool(lngMajor >= 5&) Then
'Win2000 or WinXP
GetWinVersion = "Win2000 or WinXP"
Else
End If
ElseIf CBool(lngMajor = 4&) And CBool(lngMinor = 90&) Then
'Windows ME
GetWinVersion = "Windows ME"
Else
End If
End Function

Private Sub Command1_Click()
Print GetWinVersion
End Sub