|
Dim tGUID As GUID, sCLSID As String
Dim iMajor As Integer, iMinor As Integer
Dim lCID As Long
Dim DllPath As String
DllPath = GetModulePath(sLib)
If bState Then
'''' Basic automatically translates strings to Unicode Byte arrays
'''' but doesn''''t null-terminate, so you must do it yourself
suLib = DllPath & vbNullChar
'''' Pass first byte of array
errOK = LoadTypeLib(suLib(0), tlb)
If errOK = 0 Then
errOK = RegisterTypeLib(tlb, suLib(0), 0)
End If
RegTypelib = errOK
Else
Set cTLI = TLI.TypeLibInfoFromFile(DllPath)
sCLSID = cTLI.GUID
iMajor = cTLI.MajorVersion
iMinor = cTLI.MinorVersion
lCID = cTLI.lCID
Set cTLI = Nothing
suLib = sCLSID & vbNullChar
errOK = CLSIDFromString(suLib(0), tGUID)
If errOK = 0 Then
errOK = UnRegisterTypeLib(tGUID, iMajor, iMinor, lCID, SYS_WIN32)
RegTypelib = errOK
End If
End If
End Function
将工程编译成ComRegiterDll.dll，注册。这个库为公用库，所有需要重新定制DllRegisterServer、DllUnregisterServer的工程都可以方便的引用它来方便的完成注册和注销过程。
2、定制DllRegisterServer、DllUnregisterServer
新建一个工程MyDll，引入ComRegiterDll.dll，添加一个MODULE mainmodule，在mainmodule中新建两个函数DllRegisterServer、DllUnregisterServer：
Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Public Function DllRegisterServer() As Long
Dim ComReg As ComRegister
Set ComReg = New ComRegister
‘加入你的处理代码
MessageBox 0, ”注册过程”, “MYDLL”, 0
DllRegisterServer = ComReg.RegTypelib("MyDll", True)
End Function
Public Function DllUnregisterServer() As Long
Dim ComReg As ComRegister
Set ComReg = New ComRegister
‘加入你的处理代码
MessageBox 0, ”注销过程”, “MYDLL”, 0
DllUnregisterServer = ComReg.RegTypelib("MyDll", False)
End Function
在程序目录中新建一个mydll.def，def文件内容如下：
LIBRARY MyDLL
DESCRIPTION "MyDLL - (C) Antonio Giuliana, 2004"
EXPORTS
DllRegisterServer= ?DllRegisterServer@ mainmodule @@AAGXXZ
DllUnregisterServer= ?DllUnregisterServer@ mainmodule @@AAGXXZ
保存，编译，运行regsvr32注册mydll你就发现弹出对话框“注册过程“
结束语
本人使用导出函数的方法引自：http://www.visual-basic.it/uploads/articoli/tecnici/agDllByVB.htm
本人在实现过程中还碰到了一些问题，就是在导出的函数过程中使用很多方法都会有限制，可能是由于VB的一下全局对象未初始化引起的，所以就把注册方法封装到ComRegisterDll.dll中，再去引用，如果不依靠ComRegisterDll.dll而直接将ComRegister放到要注册的DLL的单元中去引用就会出错，欢迎大家与我一起探讨这个问题的解决方案。
另：本人没有个人空间不方便把源码上传，如有需要可与本人联系:
上一页 [1] [2] [3] [4] 下一页 | 
