我正在處理系統版本的偵測 但缺了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
[程式來源:改寫德立本先生的文章]
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(3) 人氣()