Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

Tip of the Day
Language: Enterprise
Expertise: All
Aug 10, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Unregister COM Components (*.dll) and Type Libraries (*.tlb)

In order to run this tech tip you need following things:
(a) VB5 or VB6
(b) Reference to Type Lib information object component (TLIBINF32.dll).

This function takes in the name of the com component (or dll) or the type library which needs to be unregistered.

Private Function UnregisterTypeLib(ByVal strTypeLibName As String) As Boolean

    On Error GoTo ErrorHandler

    Dim pTypeLibInfo As TLI.TypeLibInfo     ' Pointer to TypeLibrary Info object

    If (Trim(strTypeLibName) = "") Then
        MsgBox "Select a Type library file to unregister . ..", vbInformation +
vbOKOnly, "File Selection Error"
        UnregisterTypeLib = False
        Exit Function
    End If

    ' Get the pointer to type library information for the specified file
    Set pTypeLibInfo = TypeLibInfoFromFile(strTypeLibName)

    ' Unregister the Type Library from the system registry

    ' Release the reference to this typelib object
    Set pTypeLibInfo = Nothing
    UnregisterTypeLib = True
    Exit Function


    ' Display the complete error message
    MsgBox "Number      : " & Err.Number & vbCrLf & _
           "Description : " & Err.Description & vbCrLf & _
           "Source      : " & Err.Source & vbCrLf & _
           "Help File   : " & Err.HelpFile & vbCrLf & _
           "Last DLL Err: " & Err.LastDllError & vbCrLf, vbCritical + vbOKOnly,
"Unregister Type Lib Error"
    ' Release the reference to this typelib object
    Set pTypeLibInfo = Nothing
    UnregisterTypeLib = False

End Function

Deepak Pant
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date