Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
Private Declare Function GetVersionEx Lib _
    "kernel32" Alias "GetVersionExA" _
    (lpVersionInformation As OSVERSIONINFO) As Long

Dim lngOS As OSVERSIONINFO ' óçíà¸ì ÎÑ
    Dim strVer As String
    lngOS.dwOSVersionInfoSize = Len(lngOS)
    strVer = GetVersionEx(lngOS)
    If Str$(lngOS.dwMajorVersion) + LTrim$(Str(lngOS.dwMinorVersion)) = 60 Or Str$(lngOS.dwMajorVersion) + LTrim$(Str(lngOS.dwMinorVersion)) = 61 Then 'виста или ос7
        'прописываете установку компонентов под семёркой и вистой
    Else
        'прописываете стандартную установку под xp
    End If