MyTetra Share
Делитесь знаниями!
061. Общая информация о Windows
12.07.2018
08:20
Раздел: VBA - Access - leadersoft.ru


03. Этот пример показывает как с использованием API интерфейса определить информацию по Windows, номер версии, платформы и т.п.

Все примеры Microsoft Access
' Структура с информацией о версии 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 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

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования