Binaryworld - IsComDLL - Check whether a DLL is an COM self-registering server ... [ VB.net -> Language ]

<System.Runtime.InteropServices.DllImport("kernel32")> Shared Function _
  LoadLibrary(ByVal path As String) As Integer
End Function

<System.Runtime.InteropServices.DllImport("kernel32")> Shared Function _
  GetProcAddress(ByVal hModule As Integer, ByVal procName As String) As _
  Integer
End Function

<System.Runtime.InteropServices.DllImport("kernel32")> 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 If
End Function