VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

リンク元へ戻ります。 システム・情報関係のメニュー
1.Windowsのシステムディレクトリのパス名を取得する
2.Windows のバージョンを取得する
3.終了時の情報を保存・読み込み・反映(レジストリ使用・他)
4.Windows を終了・再起動する
5.スクリーンセーバーの起動及び解除
6.タスクバーを自動で隠す・常に手前に表示を設定・取得
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.その他、当サイト内に掲載のシステム・情報に関するサンプル


2.Windows のバージョンを取得する
1.Windows のバージョンを取得する(簡易版)
2.API を使って Windows のバージョンを取得する
3.Windows のバージョン情報
4. 
5. 
6. 

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows Vista・Windows 7 (32bit) / VB6.0(SP6)
Option :[Option Explicit]
参照設定:                  参照設定方法参照
使用 API:GetVersionEx
その他 :このサンプルは、 Win32 APIを使用しておりますので、ある程度Win32 API が理解できる方がお使い下さい。
    :
このページのトップへ移動します。 1.Windows のバージョンを取得する(簡易版)
今となっては、詳細なバージョン情報が必要な場面がそうないように思いますので、下記でも十分かと思います。

Option Explicit

Private Sub Command1_Click()
  With CreateObject("SysInfo.SYSINFO")
    MsgBox "OSVersion  : " & .OSVersion _
   & vbLf & "OSBuild   : " & .OSBuild _
   & vbLf & "OSPlatform  : " & .OSPlatform
  End With
End Sub

このページのトップへ移動します。 2.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

このページのトップへ移動します。 3.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






このページのトップへ移動します。 4.


このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
1.OSのバージョン情報を取得する(API使用)
2.CreateObject("SysInfo.SYSINFO")によるOSのバージョン情報を取得



このページのトップへ移動します。