Windowsのバージョンを取得
＜Windowsのバージョンを取得する＞
|
宣 言 |
| (Private) Declare Function GetVersionEx& Lib "kernel32" Alias "GetVersionExA"
(ByRef lpVersionInformation As OSVERSIONINFO) (Private) Type OSVERSIONINFO ' 148バイト使用 dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type |
|
引 数 説 明 |
|
OSVERSIONINFO |
OSVERSIONINFO構造体 |
結果を得る変数 |
|
OSVERSIONINFO構造体に関する説明 |
|
要素名 |
内容 |
|
dwOSVersionInfoSize |
この構造体のサイズ（現在は呼び出す前に１４８を代入） |
|
dwMajorVersion |
ＯＳのメジャーバージョン |
|
dwMinorVersion |
ＯＳのマイナーバージョン |
|
dwBuildNumber |
ＯＳのビルドナンバー |
|
dwPlatformId |
プラットフォームの識別 |
|
szCSDVersion |
ＯＳに関する追加情報 |
|
サ ン プ ル プ ロ グ ラ ム |
プログラムを張りつけ実行してください。ＯＳのバージョン情報を表示して終了します。
動作確認：Visual Basic 5.0,Windows98
VB 4.0でも問題なく動作するでしょう。
| Private Declare Function GetVersionEx& Lib "kernel32" Alias "GetVersionExA"
(ByRef lpVersionInformation As OSVERSIONINFO) Private Type OSVERSIONINFO ' 148バイト使用 dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Private Sub Form_Load() Dim OSVer As OSVERSIONINFO Dim Ver As String OSVer.dwOSVersionInfoSize = 148 GetVersionEx OSVer Ver = Str(OSVer.dwMajorVersion) + "." + Str(OSVer.dwMinorVersion) + "." + Str(OSVer.dwBuildNumber) MsgBox Ver End End Sub |