Shared Function _ LoadLibrary(ByVal path As String) As IntegerEnd Function Shared Function _ GetProcAddress(ByVal hModule As Integer, ByVal procName As String) As _ IntegerEnd Function Shared Sub FreeLibrary _ (ByVal hModule As Integer)End Sub' Check whether a DLL is an COM self-registering server Function IsComDLL(ByVal filename As String) As Boolean Dim hModule As Long Dim procAddress As Long ' attempt to load the DLL hModule = LoadLibrary(filename) If hModule <> 0 Then ' the DLL has been loaded ' get the address of the DllRegisterServer function procAddress = GetProcAddress(hModule, "DllRegisterServer") ' if non-zero then the function is there IsComDLL = (procAddress <> 0) ' free-memory FreeLibrary(hModule) End IfEnd Function
![Outage Reddit](https://www.devx.com/wp-content/uploads/Outage-Reddit-300x171.jpg)