如何在客户端通过VB注册一个升级DLL，并且要自动识别出98或者是2000的安装目录，将Dll覆盖并升级 要有获取路径和注册的例子 高分送上

[wjf7688]

如何在客户端通过VB注册一个升级DLL，并且要自动识别出98或者是2000的安装目录，将Dll覆盖并升级 要有获取路径和注册的例子 高分送上

[thorkhan]

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function WindowsDir() As String
Dim Windows As String
Windows = Space(255)
GetWindowsDirectory Windows, 255
Windows = Left$(Windows, Len(Trim$(Windows)) - 1)
WindowsDir = Windows
End Function

至于注冊Dll妳去www.vbaccelerator.com去找﹐有源代碼﹐是一個注冊tlb文件的﹐但它同時可以注冊ocx,dll

[thorkhan]

http://www.vbaccelerator.com/codelib/tlb/vbregtlb.htm
注冊Source Code

[thorkhan]

如果感覺可以給點分吧﹐幫我升五個三角﹐謝謝