２．Windows のバージョンを取得する

１．Windows のバージョンを取得する(簡易版) ２．API を使って Windows のバージョンを取得する ３．Windows のバージョン情報 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：　　　　　　　　　　　　　　　　　　参照設定方法参照 使用 API：GetVersionEx その他　：このサンプルは、 Win32 APIを使用しておりますので、ある程度Win32 API が理解できる方がお使い下さい。 　　　　： Win32 API とは 　Win32 Application Programming Interfaces の略で、32bit プロセッサで動作する Windows 95 等、以降用に対応するアプリケーションの開発者のために、公開されている関数を指します。 尚、Visual Basic 2010 等の .NET 系のバージョンや VBA からも使用する事ができます。 　ここでは、略して Win32 API　とか　Win32 API 関数 とか表示スペースの関係から　API　と表記する場合があります。

１．Windows のバージョンを取得する(簡易版)

今となっては、詳細なバージョン情報が必要な場面がそうないように思いますので、下記でも十分かと思います。 Option Explicit Private Sub Command1_Click() 　　With CreateObject("SysInfo.SYSINFO") 　　　　MsgBox "OSVersion　　: " & .OSVersion _ 　　　& vbLf & "OSBuild　　　: " & .OSBuild _ 　　　& vbLf & "OSPlatform　 : " & .OSPlatform 　　End With End Sub

２．API を使って Windows のバージョンを取得する

もっと、詳細なバージョン情報が必要な場合は、旧のサンプルを使って取得するようにして下さい。 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　　　　　　'プラットフォームのID 　　szCSDVersion　　　　As String * 128　　'OSに関する付加情報 End Type Private Sub Command1_Click() 　　Dim lngResult　As Long 　　Dim lpVerInfo　As OSVERSIONINFO 　　lpVerInfo.dwOSVersionInfoSize = Len(lpVerInfo) 　　lngResult = GetVersionEx(lpVerInfo) 　　If lngResult = 0 Then Exit Sub 　　With lpVerInfo 　　　　Label1.Caption = _ 　　　　"MajorVersion　: " & CStr(.dwMajorVersion) & vbCrLf & _ 　　　　"MinorVersion　: " & CStr(.dwMinorVersion) & vbCrLf & _ 　　　　"BuildNumber　 : " & CStr(.dwBuildNumber) & vbCrLf & _ 　　　　"PlatformId　　: " & .dwPlatformId & vbCrLf & _ 　　　　"CSDVersion　　: " & Trim$(Left$(.szCSDVersion, InStr(.szCSDVersion, vbNullChar) - 1&)) 　　End With End Sub 私の環境での取得結果 　MajorVersion　: 6 　MinorVersion　: 1 　BuildNumber　 : 7601 　PlatformId　　: 2 　CSDVersion　　: Service Pack 1

３．Windows のバージョン情報

dwMajorVersion dwMinorVersion szCSDVersion Windows 95 SP1 4 0 　　a　　 Windows 95 OSR2 or OSR2.1 4 0 B Windows 95 OSR2.5 4 0 C Windows 98 4 10 　　　　 Windows 98 SE 4 10 A Windows Me 4 90 　　　　 Windows NT 3.51 3 51 　　　　 Windows NT 4.0 4 0 　　　　 Windows 2000 5 0 　　　　 Windows XP 5 1 　　　　 Windows .NET Server 5 1 　　　　 Windows Server 2003 5 2 Windows Vista 6 0 Windows 7 6 1 Windows 8 6 2 Windows Server 2012 6 2

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

１．ＯＳのバージョン情報を取得する（ＡＰＩ使用） ２．CreateObject("SysInfo.SYSINFO")によるＯＳのバージョン情報を取得