请问用什么方法在程序中判断当前的操作系统版本？

[ntk]

我的一个打印程序，需要自定义纸张大小。在W2000中不支持98的操作方式。
有什么办法吗？可以在程序中判断当前的操作系统版本。

[shawls]

vba.Environ

[用户 昵称]

'引用控件 Microsoft SysInfo Control 6.0
Dim OS As String

With SysInfo1
Select Case .OSPlatform
Case 0: OS = "Win32"
Case 1:
Select Case .OSVersion
Case 4: OS = "Win 95"
Case 4.1: OS = "Win 98"
Case 4.9: OS = "Wim Me"
End Select
Case 2:
Select Case .OSVersion
Case 4: OS = "Win NT"
Case 5: OS = "Win 2000"
Case 6: OS = "Win XP"
End Select
End Select

MsgBox "Build:" & .OSBuild & vbNewLine & _
"Platform:" & OS & "(" & .OSPlatform & ")" & vbNewLine & _
"Version:" & .OSVersion
End With

[用户 昵称]

Insert the following code into Module1:
Public Declare Function GetVersionExA Lib "kernel32" _
(lpVersionInformation As OSVERSIONINFO) As Integer

Public 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


Add the following line of code to the Load event of Form1:
MsgBox GetVersion()

[oswica]

API

[pchobby]

我认为JennyVenus的方法最好

[zyl910]

http://expert.csdn.net/Expert/topic/698/698837.xml?temp=9.040469E-02

[chenyu5188]

用API楼上给出例子了