有辦法從DLL檔案裡直接取出DLL ProgID做應用嗎?

已解決, 方法是使用TLBINF32.DLL,

附上簡單的範例, 用VB寫成的COM,

Public Function GetProgID(ByVal sFileName As String) As Variant
Dim TLibInfo As TypeLibInfo
Dim TLibClass As CoClasses
Dim sResult() As String
Dim sHeader As String
Dim i As Integer

On Error GoTo ErrorMark

'Initialize
GetProgID = ""
sHeader = ""
Set TLibInfo = TypeLibInfoFromFile(Trim(sFileName))
Set TLibClass = TLibInfo.CoClasses

'ProgID Header
sHeader = TLibInfo.Name

If TLibClass.Count > 0 Then
ReDim sResult(TLibClass.Count - 1)

For i = 1 To TLibClass.Count
sResult(i - 1) = sHeader "." TLibClass.Item(i).Name
Next i

GetProgID = sResult
End If

ErrorMark:
Set TLibInfo = Nothing
Set TLibClass = Nothing
End Function

Public Function CheckFormat(ByVal sFileName As String) As Boolean
Dim TLibInfo As TypeLibInfo
Dim TLibClass As CoClasses

On Error GoTo ErrorMark

CheckFormat = False
Set TLibInfo = TypeLibInfoFromFile(Trim(sFileName))
Set TLibClass = TLibInfo.CoClasses

If Trim(TLibInfo.Name) <> "" And TLibClass.Count > 0 Then
CheckFormat = True
End If

ErrorMark:
Set TLibInfo = Nothing
Set TLibClass = Nothing
End Function