Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Apr 21, 2001

GetFileFromCLSID - The file that implements a COM component with given CLSID

' Get the name of the DLL or EXE that contains
' the class whose CLSID is passed as an argument
'
' Note: Remote servers aren't taken into account

Function GetFileFromCLSID(ByVal clsid As String) As String
    Const HKEY_CLASSES_ROOT = &H80000000

    ' try to read the HKEY_CLASSES_ROOT\CLSID\{...}\InProcServer32 value
    GetFileFromProgID = GetRegistryValue(HKEY_CLASSES_ROOT, _
        "CLSID\" & clsid & "\InProcServer32", "")
    
    If Len(GetFileFromProgID) = 0 Then
        ' try to read the HKEY_CLASSES_ROOT\CLSID\{...}\LocalServer32 value
        GetFileFromProgID = GetRegistryValue(HKEY_CLASSES_ROOT, _
            "CLSID\" & clsid & "\LocalServer32", "")
    End If
End Function


Francesco Balena
 
Comment and Contribute

 

 

 

 

 


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

 

 

Sitemap