Procedure CheckInstalledActiveX
    With this
        .ActiveX_IE            =.CheckActiveX("Shell.Explorer.2")
        .ActiveX_ListView    =.CheckActiveX("MSComctlLib.ListViewCtrl")
        .ActiveX_TreeView    =.CheckActiveX("MSComctlLib.TreeCtrl")
        .ActiveX_Progress    =.CheckActiveX("MSComctlLib.ProgCtrl")
        .ActiveX_ZIP        =.CheckActiveX("XStandard.Zip")

        If not .ActiveX_IE 
            * Ежли компоненты нету - нефиг ваще здесьб делать 
            MessageBox("Компонент Shell.Explorer не установлен или криво установлен в системе",16,_Screen.Caption)
            Return .F.
        EndIf

        If Not .ActiveX_ZIP
            * Если не установлен Zip'ер попробуем его установить 
            If File("XZip.DLL")
                * Файл есть пытаемся регистрить 
                Declare integer DllRegisterServer in XZIP.DLL 
                .ActiveX_ZIP=DllRegisterServer()=0
                If Not .ActiveX_ZIP
                    * Ну и фиг с ним - тогда обновление из ZIP файлов обломится 
                    MessageBox("XStandard.ZIP ActiveX не удалось зарегистрировать",48,_Screen.Caption)
                EndIf
            EndIf
        EndIf
    EndWith

    Procedure CheckActiveX(lcActiveX)
    With this
        Local lcCLSID, lcInprocServer
        * Ищем код класса по имени ActiveX
        lcCLSID=RegRead("HKCR\"+lcActiveX+"\CLSID","")
        If not Empty(lcCLSID)
            * Ищем исполняемый файл 
            lcProcServer=RegRead("HKCR\CLSID\"+lcCLSID+"\InprocServer32","")
            If File(lcProcServer)
                * Ну если он диске есть - будем считать сто он утсановлен правильно 
                * А что остается ? 
                Return .T.
            EndIf
        EndIf
        Return .F.
    EndWith