我正在處理系統版本的偵測 但缺了windows nt 與 windows me
下面是我寫得程式 有誰能幫我補上這兩版本的資訊!
雖然都是98 是否可能這些數值會不同 這些數值又代表哪些意義呢?
Option Explicit
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 SysInfo As OSVERSIONINFO
SysInfo.dwOSVersionInfoSize = Len(SysInfo)
GetVersionEx SysInfo
Open "c:\version.txt" For Output As #1
Print #1, "dwOSVersionInfoSize=" & SysInfo.dwOSVersionInfoSize
Print #1, "dwMajorVersion=" & SysInfo.dwMajorVersion
Print #1, "dwMinorVersion=" & SysInfo.dwMinorVersion
Print #1, "dwBuildNumber=" & SysInfo.dwBuildNumber
Print #1, "szCSDVersion=" & SysInfo.szCSDVersion
Print #1, "OSBuild=" & SysInfo1.OSBuild
Print #1, "OSPlatform=" & SysInfo1.OSPlatform
Print #1, "OSVersion=" & SysInfo1.OSVersion
Close
'****** WINDOWS XP ******
'dwOSVersionInfoSize = 148
'dwMajorVersion = 5
'dwMinorVersion = 1
'dwBuildNumber = 2600
'szCSDVersion=NULL
'szCSDVersion=NULL
'OSBuild = 2600
'OSPlatform = 2
'OSVersion = 5.01
'****** WINDOWS 2000 ******
'dwOSVersionInfoSize = 148
'dwMajorVersion = 5
'dwMinorVersion = 0
'dwBuildNumber = 2195
'szCSDVersion=Service Pack 2
'OSBuild = 2195
'OSPlatform = 2
'OSVersion = 5
'****** WINDOWS 98 ******
'dwOSVersionInfoSize = 148
'dwMajorVersion = 4
'dwMinorVersion = 10
'dwBuildNumber = 67766222
'szCSDVersion=NULL
'OSBuild = 1998
'OSPlatform = 1
'OSVersion = 4.1
End Sub
[程式來源:改寫德立本先生的文章]
下面是我寫得程式 有誰能幫我補上這兩版本的資訊!
雖然都是98 是否可能這些數值會不同 這些數值又代表哪些意義呢?
Option Explicit
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 SysInfo As OSVERSIONINFO
SysInfo.dwOSVersionInfoSize = Len(SysInfo)
GetVersionEx SysInfo
Open "c:\version.txt" For Output As #1
Print #1, "dwOSVersionInfoSize=" & SysInfo.dwOSVersionInfoSize
Print #1, "dwMajorVersion=" & SysInfo.dwMajorVersion
Print #1, "dwMinorVersion=" & SysInfo.dwMinorVersion
Print #1, "dwBuildNumber=" & SysInfo.dwBuildNumber
Print #1, "szCSDVersion=" & SysInfo.szCSDVersion
Print #1, "OSBuild=" & SysInfo1.OSBuild
Print #1, "OSPlatform=" & SysInfo1.OSPlatform
Print #1, "OSVersion=" & SysInfo1.OSVersion
Close
'****** WINDOWS XP ******
'dwOSVersionInfoSize = 148
'dwMajorVersion = 5
'dwMinorVersion = 1
'dwBuildNumber = 2600
'szCSDVersion=NULL
'szCSDVersion=NULL
'OSBuild = 2600
'OSPlatform = 2
'OSVersion = 5.01
'****** WINDOWS 2000 ******
'dwOSVersionInfoSize = 148
'dwMajorVersion = 5
'dwMinorVersion = 0
'dwBuildNumber = 2195
'szCSDVersion=Service Pack 2
'OSBuild = 2195
'OSPlatform = 2
'OSVersion = 5
'****** WINDOWS 98 ******
'dwOSVersionInfoSize = 148
'dwMajorVersion = 4
'dwMinorVersion = 10
'dwBuildNumber = 67766222
'szCSDVersion=NULL
'OSBuild = 1998
'OSPlatform = 1
'OSVersion = 4.1
End Sub
[程式來源:改寫德立本先生的文章]
全站熱搜
留言列表