1,453
社区成员
发帖
与我相关
我的任务
分享【请教】怎样判断动态链接库(DLL)是否支持DLLRegisterServer?
怎样判断动态链接库(DLL)是否支持DLLRegisterServer?
...全文
请发表友善的回复…
发表回复
laihongbo524 2005-12-13
- 打赏
- 举报
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Function DllRegister(ByVal FileName As String) As Boolean
Dim DllHand As Long
Dim DllProc As Long
On Error GoTo Err
DllHand = LoadLibrary(FileName & Chr(0))
DllProc = GetProcAddress(DllHand, "DllRegisterServer" & Chr(0))
FreeLibrary DllHand
If DllProc <> 0 Then
DllRegister = True
Else
GoTo Err
End If
Err:
DllRegister = False
End Function
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Function DllRegister(ByVal FileName As String) As Boolean
Dim DllHand As Long
Dim DllProc As Long
On Error GoTo Err
DllHand = LoadLibrary(FileName & Chr(0))
DllProc = GetProcAddress(DllHand, "DllRegisterServer" & Chr(0))
FreeLibrary DllHand
If DllProc <> 0 Then
DllRegister = True
Else
GoTo Err
End If
Err:
DllRegister = False
End Function
daixinhou 2005-12-13
- 打赏
- 举报
UP
daixinhou 2005-12-09
- 打赏
- 举报
Up~~~
