请问如何获取windows版本信息？

GetVersionExGetVersionEx VB声明 
Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByVal lpVersionInformation As OSVERSIONINFO) As Long 
说明 
在一个OSVERSIONINFO结构中载入与平台和操作系统有关的版本信息 
返回值 
Long，非零表示成功，零表示失败 
参数表 
参数 类型及说明 
lpVersionInformation OSVERSIONINFO，用于装载版本信息的结构。在正式调用函数之前，必须先将这个结构的dwOSVersionInfoSize字段设为结构的大小（148）