Visual Basic > API and Miscellaneous

Registering and unregistering COM components using TLBINF32.DLL

Registering and unregistering COM components using TLBINF32.DLL

NOTE: Check the improved version of this at:


The following code provides an API free alternative for registering COM components.


'Purpose   :    Registers and Unregisters COM components without using regsvr32.
'Inputs    :    sFilePath                       The path to the DLL/OCX.
'               bRegister                       If True Registers the compoent, else unregisters component
'Outputs   :    Returns True if successful
'Notes     :    Requires TLBINF32.DLL (a Microsoft DLL)


Function RegisterComponent(sFileName As String, Optional bRegister As Boolean) As Boolean
    Dim oTypeLib As Object      'TLI.TypeLibInfo
    
    On Error GoTo ErrFailed
    Set oTypeLib = CreateObject("TLI.TypeLibInfo")
    oTypeLib.ContainingFile = sFileName
    If bRegister Then
        'Register a component
        oTypeLib.Register
    Else
        'Unregister a component
        oTypeLib.UnRegister
    End If
    Set oTypeLib = Nothing
    RegisterComponent = True

    Exit Function

ErrFailed:
    Debug.Print Err.Description
    Debug.Assert False
    RegisterComponent = False
End Function