OSのバージョンを取得する
Option Explicit
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 Declare Function GetVersionEx Lib
"kernel32" Alias "GetVersionExA"
(lpVersionInformation As OSVERSIONINFO) As
Long
Private Sub Command1_Click()
Dim OsVerInfo As OSVERSIONINFO
Dim lngRet As Integer
OsVerInfo.dwOSVersionInfoSize = 148
OsVerInfo.szCSDVersion = 0
lngRet = GetVersionEx(OsVerInfo)
Picture1.BorderStyle = 0
Picture1.Cls
Picture1.Print "Major Version "
& CStr(OsVerInfo.dwMajorVersion)
Picture1.Print "Minor Version "
& CStr(OsVerInfo.dwMinorVersion)
Picture1.Print "Build Number "
& CStr(OsVerInfo.dwBuildNumber)
Picture1.Print "Flatform ID " &
CStr(OsVerInfo.dwPlatformId)
Picture1.Print "CSD Version " &
OsVerInfo.szCSDVersion
End Sub