Функция GetVersionEx

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

Платформа: Win 95/98, Win NT

GetVersionEx определяет тип операционной системы,номерах основной и дополнительной версий,номере сборки и Service Pack.Информация о версии передается в переменную lpVersionInformation.Функция возвращает 0 в случае ошибки,и 1 в успешном случае.

lpVersionInformation
Информация о версии операционной системы 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

Категория Системная информация
В начало.

ivanov33.ru независимую экспертизу автомобилей ДТП
ivanov33.ru
пластинка для зубов цена
gmsdental.ru