1.定义一个局部的外部函数Function long DllRegisterServer() Library "QRBarcode.ocx"
2:
Integer li_ret
string ls_temp
li_ret = RegistryGet("HKEY_CLASSES_ROOT/CLSID/{F5E7BFDD-DE8E-47FB-B009-F9230FFF154A}/TypeLib", "", RegString!, ls_temp)
if -1 = li_ret then DllRegisterServer() //如果返回-1，说明没有注册
