PB实现自动判断并注册Dll/OCX控件

如果在程序中使用了OCX控件，在开发阶段，可以使用Windows的程序来注册这个控件，如：

regsvr32 ccrpftv6.ocx

regsvr32 filevw61.ocx

如果取消注册的话：

regsvr32 /u ccrpftv6.ocx

regsvr32 /u filevw61.ocx

但是，如果程序写好了，要将其发布出去，不可能让用户自己去运行这个命令，那么怎么办呢？

办法有很多，其中之一是在安装程序（比如InstallShield）中来注册，另外一个办法就是在程序中自动进行注册。

此处，我们只讨论在程序中进行OCX注册的问题。

我们知道，OCX文件中都有一个接口DllRegisterServer，这个接口就是用来注册自身的，所以，问题变得非常简单，首先，声明一个外部函数：

Function long DllRegisterServer() Library "ccrpftv6.ocx"

然后在程序中进行调用：

DllRegisterServer()

但是，如果我们的程序中使用了多个OCX，而每个OCX的注册接口都是DllRegisterServer，怎么办呢？这个问题可以用alias关键字来解决，如：

Function long DllRegisterServer_ccrptv6() Library "ccrpftv6.ocx" alias for "DllRegisterServer"

Function long DllRegisterServer_filevw61() Library "filevw61.ocx" alias for "DllRegisterServer"

程序中这样调用：

DllRegisterServer_ccrptv6()

DllRegisterServer_filevw61()

当然，如果每次运行的时候都去注册，显然效率不高，我们的需求是只有当控件没有注册的时候进行注册，这样，我们需要知道控件的CLSID，这个可以从注册表中查到，注册之前先判断一下是否已经注册，如果没有注册，则进行注册，举例如下：

string ls_temp

integer li_ret

long ll_ret

li_ret = RegistryGet("HKEY_CLASSES_ROOT/CLSID/{19B7F2D6-1610-11D3-BF30-1AF820524153}/TypeLib", "", RegString!, ls_temp)//{19B7F2D6-1610-11D3-BF30-1AF820524153}是这个控件的CLSID

if li_ret = -1 then //如果返回-1，说明没有注册

ll_ret = DllRegisterServer_ccrptv6()

end if

li_ret = RegistryGet("HKEY_CLASSES_ROOT/CLSID/{E67F7BE6-F682-4254-8CF4-3CCE1EEC0EA5}/TypeLib", "", RegString!, ls_temp)//{19B7F2D6-1610-11D3-BF30-1AF820524153}是这个控件的CLSID

if li_ret = -1 then //如果返回-1，说明没有注册

ll_ret = DllRegisterServer_filevw61()

end if

以下是一段完整的例子，以注册MSCOMM32控件为例：

首先，声明外部函数：

function long DllRegisterServer() Library "MSCOMM32.ocx"

接着，程序运行前自动判断是否注册了所需要的MSCOMM32控件，如果没有注册就自动注册，如果已经注册就跳过 ：

string ls_temp

integer li_ret

li_ret = RegistryGet("HKEY_CLASSES_ROOT/CLSID/{648A5600-2C6E-101B-82B6-000000000014}/",&

"", RegString!, ls_temp)

if li_ret = -1 then //如果返回-1，说明没有注册

li_ret = DllRegisterServer()

end if

IF li_ret >= 0 THEN

open(w_main)//已经注册过了

ELSE

MessageBox("错误提示：",'装载DLL/OCX文件错误，错误代码：'+string (li_ret))

RETURN

END IF