以下是引用qingfameng在2014-1-13 00:19:24的发言:
没有方法程序肯定通不过。表单中建立2个方法程序。分别是:LOADLIBRARYA,OCXREG,脚本代码分别是: “*”,星号。可试试。
我还是贴上代码吧,呵呵
Lparameters pcOCX
Declare Integer LoadLibrary In kernel32 As "LoadLibraryA" String lpLibFileName
Local lhLib
lhLib = LoadLibraryA( pcOCX )
If (lhLib < 32) && HINSTANCE_ERROR
Return "LoadLibrary("+pcOCX+")失败 - 找不到指定的模块。"
Endif
Declare Integer GetProcAddress In kernel32 Integer hModule,String lpProcName
lpRegProc = GetProcAddress(lhLib, 'DllRegisterServer')
If lpRegProc>0
Declare Integer DllRegisterServer In &pcOCX As OcxReg
lnRes = OcxReg()
If lnRes=0
Return "注册成功"
Else
Return "注册失败: DllRegisterServer 错误编号 "+Transform(lnRes)
Endif
Else
Return "注册失败: "+pcOCX+"找不到入口点"
Endif