GetVersionEx这个API该怎么用

Question

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByVal lpVersionInformation As OSVERSIONINFO) As LongDim ver As OSVERSIONINFO
    ver.dwOSVersionInfoSize = 148
    GetVersionEx ver
这样好象不行

Answer 1

OSVERSIONINFO定义了么：
 Type OSVERSIONINFO
   dwOSVersionInfoSize As Integer
   dwMajorVersion As Integer
   dwMinorVersion As Integer
   dwBuildNumber As Integer
   dwPlatformId As Integer
   szCSDVersion As String
 End Type

Answer 2

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (Byref lpVersionInformation As OSVERSIONINFO) As LongDim ver As OSVERSIONINFO
ver.dwOSVersionInfoSize = len(ver)    
GetVersionEx ver

Answer 3

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA"   (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128      '  Maintenance string for PSS usage
End TypePrivate Sub Command1_Click()
    Dim lRet As Long
    Dim ov As OSVERSIONINFO
    ov.dwOSVersionInfoSize = Len(ov)
    lRet = GetVersionEx(ov)
End Sub