devxlogo

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

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 accountFunction GetFileFromCLSID(ByVal clsid As String) As String    Const HKEY_CLASSES_ROOT = &H80000000    ' try to read the HKEY_CLASSES_ROOTCLSID{...}InProcServer32 value    GetFileFromProgID = GetRegistryValue(HKEY_CLASSES_ROOT, _        "CLSID" & clsid & "InProcServer32", "")        If Len(GetFileFromProgID) = 0 Then        ' try to read the HKEY_CLASSES_ROOTCLSID{...}LocalServer32 value        GetFileFromProgID = GetRegistryValue(HKEY_CLASSES_ROOT, _            "CLSID" & clsid & "LocalServer32", "")    End IfEnd Function

devx-admin

Share the Post: