GetVersionEx

VB声明

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

说明

在一个OSVERSIONINFO结构中载入与平台和操作系统有关的版本信息

返回值

Long，非零表示成功，零表示失败

参数表

参数 lpVersionInformation

类型及说明

OSVERSIONINFO，用于装载版本信息的结构。在正式调用函数之前，必须先将这个结构的dwOSVersionInfoSize字段设为结构的大小（148）

Type OSVERSIONINFO

dwOSVersionInfoSize As Long //初始化为结构的大小

dwMajorVersion As Long//系统主版本号

dwMinorVersion As Long//系统次版本号

dwBuildNumber As Long //系统构建号

dwPlatformId As Long //系统支持的平台(详见附1)

szCSDVersion As String * 128 //系统支持的平台

End Type

附1：dwPlatformId的值：

VER_PLATFORM_WIN32s (Win32s),

VER_PLATFORM_WIN32_WINDOWS (Windows 95/Windows 98),

VER_PLATFORM_WIN32_NT (Windows NT/Windows 2000),

VER_PLATFORM_WIN32_CEHH (Windows CE).