[求助]msword9.olb如何注册

骷髅头

如果对方机上没有装office 我又在程序里用到了msword9.olb我要如何打包才能使用这个olb文件呢, 这个文件不能注册,另外还要什么别的文件呢. ================================= 这个话题有人发过,但没有人回答,现在我也同样遇到这样的问题 希望大虾能帮忙

骷髅头

vb+word2000

骷髅头

看来还是要请守柔版主来帮忙了，又要麻烦你了

骷髅头

呵呵,顶一下,请如意或守柔帮忙

[此贴子已经被作者于2006-3-10 18:28:34编辑过]

守柔

参考一下这个：

http://club.excelhome.net/dispbbs.asp?boardid=2&replyid=50757&id=109299&page=1&skin=0&Star=2

论坛上很多，请正确学会搜索。

打包可参考“文件夹带”

骷髅头

shell "regsvr32.exe C:\xxx\yyy.oca"

这个只能注册自定义控件，及VB编得活动动态库

而不是注册这msword9.olb

我调用API还是不能注册啊，看来，你对这一方面还不是很懂啊，我说得，可能太直接了，呵呵，不过我也很感谢你多次的帮助

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 Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal Hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal Hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
DllHand = LoadLibrary(“C：\System32\msword9.olb” & Chr(0))
DllProc = GetProcAddress(DllHand, "DllRegisterServer" & Chr(0))
CallWindowProc DllProc, DllHand, 0, 0, 0
FreeLibrary DllHand
If DllProc <> 0 Then
DllRegister = True
Else
GoTo Err
End If

[此贴子已经被作者于2006-3-15 14:31:15编辑过]