请教高手们

如何能知道注册表中,某个ocx(如MSCAL.OCX)是否已经有注册了
请问程序代码怎么写
我用过getsetting,getallsettings都做不出来,谁能指导一下?

HKEY_CLASSES_ROOT\CLSID\{8E27C92B-1264-101C-8A2F-040224009C02}
HKEY_CLASSES_ROOT\CLSID\{8E27C92B-1264-101C-8A2F-040224009C02}\ProgID

哈哈
無人能解

.net就方便多了

我是不管它有没有注过册～再给它注册一次～
反正在System32里面找不到的～就复制过去再注一次册～

Private Sub Form_Initialize()
Dim SystemPath As String, OcxPath As String, a As Long
    
    InitCommonControls
    
    SystemPath = GetSysPath & "\" & OCXName1
    OcxPath = App.Path & "\Library\" & OCXName1
    
    If IsFileExist(OcxPath) = True Then
        If IsFileExist(SystemPath) = False Then
            FileCopy OcxPath, SystemPath
            a = Shell("regsvr32 " & SystemPath & " /s", vbHide)
        End If
    End If
    
    SystemPath = GetSysPath & "\" & OCXName2
    OcxPath = App.Path & "\Library\" & OCXName2
    
    If IsFileExist(OcxPath) = True Then
        If IsFileExist(SystemPath) = False Then
            FileCopy OcxPath, SystemPath
            a = Shell("regsvr32 " & SystemPath & " /s", vbHide)
        End If
    End If
End Sub

重新注册一下也不费时

恩，偶和3楼用一样的方法。

谢谢各为高手帮忙

我是要写VBA保护我的程序

如果发现没有注册某个ocx
我就关闭Form

学习了