Функция GetVersionEx

Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" ( _
        lpVersionInformation As OSVERSIONINFO) As Long

GetVersionEx определяет тип операционной системы, номер основной и дополнительной версий, номер сборки и Service Pack. Информация о версии передается в переменную lpVersionInformation

lpVersionInformation

Структура OSVERSIONINFO, в которой содержится информация о версии операционной системы Windows

Пример

' Определяем номера основной, дополнительной версий Windows и номер сборки

Dim os As OSVERSIONINFO  ' информация о версии
Dim retval As Long  ' возвращаемое значение

os.dwOSVersionInfoSize = Len(os)  ' устанавливаем размер структуры
retval = GetVersionEx(os)  ' читаем информацию о версии Windows
Debug.Print "Версия Windows:"; os.dwMajorVersion; "."; os.dwMinorVersion; os.dwBuildNumber

Смотри также

GetVersion, VerifyVersionInfo

Категория

Системная информация