Q5/ws_objects/Ew_mainface.pbl.src/f_reg_dll.srf

$PBExportHeader$f_reg_dll.srf
global type f_reg_dll from function_object
end type

forward prototypes
global function integer f_reg_dll (string arg_msg)
end prototypes

global function integer f_reg_dll (string arg_msg);String ls_temp
Integer li_ret
Int rslt = 1

if sys_if_network = 0 then //单机版才需要这个dll
	li_ret = RegistryGet("HKEY_CLASSES_ROOT\CLSID\{3A020523-3DE7-4A08-93D2-7D18A34E26DE}\TypeLib",&
		"", RegString!, ls_temp)
	IF li_ret = -1 THEN //如果返回-1，说明没有注册
		IF DllRegisterServer_EwiserpReg()  = 0 THEN
			IF FileExists('EwiserpReg.dll') THEN
				Run("regsvr32.exe "+sys_cur_path+"EwiserpReg.dll /s")
			ELSE
				arg_msg = "缺少控件[EwiserpReg.dll]!"
				rslt = 0
				GOTO ext
			END IF
		END IF
	END IF
END IF

//li_ret = RegistryGet("HKEY_CLASSES_ROOT\CLSID\{0D821067-FCF9-4704-9287-0D8F76FE6513}\TypeLib",&
//	"", RegString!, ls_temp)
//IF li_ret = -1 THEN //如果返回-1，说明没有注册
//	IF DllRegisterServer_Jmail()  = 0 THEN
//		IF FileExists('jmail.dll') THEN
//			Run("regsvr32.exe "+sys_cur_path+"jmail.dll /s")
//		ELSE
//			arg_msg = "缺少控件[jmail.dll]!"
//			rslt = 0
//			GOTO ext
//		END IF
//	END IF
//END IF
//

//li_ret = RegistryGet("HKEY_CLASSES_ROOT\CLSID\{895A7FA7-BDFB-4FB3-BEAB-80C4ABA1F20F}\TypeLib",&
//	"", RegString!, ls_temp)
//IF li_ret = -1 THEN //如果返回-1，说明没有注册
//	IF DllRegisterServer_LongJoeMime()  = 0 THEN
//		IF FileExists('LongJoeMime.ocx') THEN
//			Run("regsvr32.exe "+sys_cur_path+"LongJoeMime.ocx /s")
//		ELSE
//			arg_msg = "缺少控件[LongJoeMime.ocx!"
//			rslt = 0
//			GOTO ext
//		END IF
//	END IF
//END IF 
ext:
RETURN rslt
end function