@H_301_0@Option Explicit
@H_301_0@Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OVSERSIONINFOEX) As Long
@H_301_0@Private Type OVSERSIONINFOEX
dwOVSersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
wServicePackMajor As Integer
wServicePackMinor As Integer
wSuiteMask As Integer
wProductType As Byte
wReserved As Byte
End Type
@H_301_0@Public Function IsVistaSystem() As Boolean Dim OVS As OVSERSIONINFOEX OVS.dwOVSersionInfoSize = Len(OVS) If GetVersionEx(OVS) = 1 Then If OVS.dwPlatformId = 2 And OVS.dwMajorVersion >= 6 And OVS.dwMinorVersion >= 0 Then IsVistaSystem = True End If End IfEnd Function
