OSがWindowsXP以上かどうか調べる : Access

スポンサーリンク




BackHome BackTipsへ Backメニューへ

■ Access VBA 実行コード

'オペレーティング システムのバージョンに関する情報を取得する
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
'ウィンドウズXPのメジャーバージョン番号は5
'ウィンドウズXPのマイナーバージョン番号は1
    If tosver.dwMajorVersion >= 5 And tosver.dwMinorVersion >= 1 Then
        IsWindowsXp = True
    End If
End Function

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

スポンサーリンク




BackHome BackTipsへ Backメニューへ

Copyright(C) FeedSoft