Функция GetVersion

Declare Function GetVersion Lib "kernel32" () As Long

GetVersion возвращает текущий номер версии операционной системы. Функция является устаревшей. Новые приложения должны использовать GetVersionEx или VerifyVersionInfo. Функция не имеет параметров.

Пример

' Определяем текущий номер версии операционной системы

Public Function GetWinVersion() As String
    Dim Ver As Long, WinVer As Long
    Ver = GetVersion()
    WinVer = Ver And &HFFFF&
    ' получаем номер версии
    GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")
End Function

Private Sub Form_Load()
  MsgBox "Версия Windows: " + GetWinVersion
End Sub

Смотри также

GetVersionEx, VerifyVersionInfo

Категория

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