Программирование на Visual Basic

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