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

Question

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As LongPublic 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

Answer 1

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