LEADERSOFT.ru Разработка на заказ программ и сайтов
Раздел обучения информационным технологиям
Разработка программ на Access
03. Этот пример показывает как с использованием API интерфейса определить информацию по Windows, номер версии, платформы и т.п.
Свойства продукта

 Microsoft Office: 2000,2002,2003,2007,2010  Архив с файлами: Перейти
 Операционная система: Windows XP,Vista  Применение: Базы данных Access
 Продажа: Купить  Файл исходника: ..\Access\16 Модули\API\la_api.mdb
 Язык интерфейса: Русский

   

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

Copyright © 2002-2015 ООО Лидер Эксэсс
Сайт работает под управлением: ASP.NET, Access