ACCESS TIPS OSがWindowsXP以上かどうか調べる

OSがWindowsXP以上かどうか調べる　　　メニューへ　　ホームへ

スポンサードリンク

'オペレーティングシステムのバージョンに関する情報を取得する
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

Public Function IsWindowsXp() As Boolean
    Dim tosver As OSVERSIONINFO

    tosver.dwOSVersionInfoSize = Len(tosver)
    IsWindowsXp = False
    If GetVersionEx(tosver) = 0 Then
        Exit Function
    End If
'ウィンドウズＸＰのメジャーバージョン番号は5
'ウィンドウズＸＰのマイナーバージョン番号は1
    If tosver.dwMajorVersion >= 5 And tosver.dwMinorVersion >= 1 Then
        IsWindowsXp = True
    End If
End Function

'コマンドボタンクリックイベント
Private Sub コマンド0_Click()
IsWindowsXp
End Sub

Access-Access!