如何在VB中用API函数查询windows版本号？

GetVersionEx API~

GetVersionEx(
var lpVersionInformation: TOSVersionInfo //结构体
): BOOL;

//结构 TOSVersionInfo 是 _OSVERSIONINFOA 的别名
_OSVERSIONINFOA = record
dwOSVersionInfoSize: DWORD; {结构大小}
dwMajorVersion: DWORD; {主版本号}
dwMinorVersion: DWORD; {次版本号}
dwBuildNumber: DWORD; {建立编号}
dwPlatformId: DWORD; {作业平台}
szCSDVersion: array[0..127] of AnsiChar; {其他说明信息}

版本号的话只要拿到主版本号和次版本号就可以了，WinNT版本号是4.0/4.1、Win2000是5.0、xp是5.1、Vista是6.0

至于具体的调用方式……VB的API调用不是一点半点的麻烦～相信你也知道。

用到的结构体和函数声明用VB6安装目录下的API浏览器都可以直接找到，如果你需要代码，请补充问题～

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

我还是补充个声明吧

Type OsVersionInfo
dwVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatform As Long
szCSDVersion As String * 128
End Type

Private Declare Function GetVersionEx& Lib "kernel32" Ali