OS名とバージョン取得

OS名とバージョン取得

使用関数：　GetVersionEx

＊サンプル＊
#N88BASIC
'OS名とバージョン取得
Dim osVerInfo As OSVERSIONINFO
Dim SizeBuf As Long
Dim StrBuf As String
Dim BuildNum As Long
Dim SpVer As String
SizeBuf = Len(osVerInfo)
osVerInfo.dwOSVersionInfoSize = SizeBuf
GetVersionEx(osVerInfo)
'
Select Case osVerInfo.dwPlatformId
Case VER_PLATFORM_WIN32_WINDOWS
'Windows9x系OSのWin32
Select Case osVerInfo.dwMinorVersion
Case 0
'Windows 95
StrBuf = "Windows 95"
Case 10
'Windows 98
StrBuf = "Windows 98"
Case 90
'Windows Me
StrBuf = "Windows Me"
End Select
BuildNum = LOWORD(osVerInfo.dwBuildNumber)
Case VER_PLATFORM_WIN32_NT
'WindowsNT系OSのWin32
Select Case osVerInfo.dwMajorVersion
Case 4
StrBuf = "WindowsNT"
Case 5
If osVerInfo.dwMinorVersion = 0 Then
StrBuf = "Windows2000"
Else
StrBuf = "WindowsXp"
End If
End Select
BuildNum = osVerInfo.dwBuildNumber
End Select
SpVer = osVerInfo.szCSDVersion
Print StrBuf
Print BuildNum
Print SpVer

------------------------------------------------------------

山本 大祐

ActiveBasicオフィシャルユーザーズガイド―完全FreeのBasic統合開発環境で始めるWindowsプログラミング