VB :如何使用VB区分本机操作系统是NT,2000 or XP?????

来源：百度知道 编辑：UC知道 时间：2024/05/25 03:53:32
看谁的代码最简单!!谢谢
非常感谢大家的帮助!包括1楼的夥计!
不过我想说的是,这样能区别取来win2000 vs winxp吗?
你就为了要分吗??好,哥们儿我全给你,有本事就自己写
一段出来,看清楚了.用最简单的例子.
写出来我称你为前辈,写不出来??哼哼,你个WBD
不过说实话小弟我分比较少 -_-||. . .
joka 2002佩服你地,感谢!不过你的代码47行1114字
0871 love 目前领先35行878字

给你改了一下，现在应该满足要求了吧
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Sub Form_Load()
Dim OSInfo As OSVERSIONINFO, PId As String
Me.AutoRedraw = True
OSInfo.dwOSVersionInfoSize = Len(OSInfo)
Ret& = GetVersionEx(OSInfo)
Select Case OSInfo.dwMajorVersion
Case 3
Print "Windows NT"
Case 4
Select Case OSInfo.dwMinorVersion
Case 0
Print "Windows 95"
Case 10
Print "Windows 98"
Case 90
Print "