03. Этот пример показывает как с использованием API
интерфейса определить информацию по Windows, номер версии, платформы и
т.п.
|
|
' Структура с информацией о версии Windows
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
' Api константы платформы Windows
Const VER_PLATFORM_WIN32s = 0
Const VER_PLATFORM_WIN32_WINDOWS = 1
Const VER_PLATFORM_WIN32_NT = 2
' Получаем информацию о версии
Private Declare Function apiGetVersionEx Lib "kernel32" Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFO) As Long
' Загрузка данных
Private Sub Form_Load()
Dim myVer As OSVERSIONINFO
Dim s As String
' Инициализируем строку
s = ""
' Определяем размер структуры
myVer.dwOSVersionInfoSize = 148
' Получаем информацию о версии
Call apiGetVersionEx(myVer)
If myVer.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
s = s & "Платформа: Windows 95;"
ElseIf myVer.dwPlatformId = VER_PLATFORM_WIN32_NT Then
s = s & "Платформа: Windows NT;"
End If
s = s & "Версия: " & myVer.dwMajorVersion & "." & myVer.dwMinorVersion & ";"
s = s & "Построение: " & (myVer.dwBuildNumber And &HFFFF&) & ";"
' Устанавливаем список
Me.myList.RowSource = s
End Sub | |
