Q5/ws_objects/Ew_longjoe902pl.pbl.src/f_regcheck.srf

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

forward prototypes
global function integer f_regcheck ()
end prototypes

global function integer f_regcheck ();//f_regcheck
uo_security3 obj_secu
obj_secu = CREATE uo_security3
obj_secu.uof_init_version_id(sys_version_id)
obj_secu.uof_init_mmkey(sys_power_key)


Int rslt
Date ls_limitdate
String ls_regword
String arg_msg
Boolean lb_dog

//messagebox('',obj_secu.getvolumeid())
//messagebox(obj_secu.posregkey(),obj_secu.getHword(obj_secu.posregkey()))
rslt = obj_secu.uof_check()
ls_regword = obj_secu.uof_getregcode()
ls_limitdate = obj_secu.uof_GetLimitDate()
lb_dog = obj_secu.uof_readdog()

if not lb_dog then
	sys_if_register = 0
end if
//rslt = obj_secu.f_check(sys_system_id,sys_power_key,ls_limitdate,ls_regword,arg_msg)

//临时处理
sys_message_timeoutdate = "2013.01.01" //2010.02.22
//IF rslt = -1 THEN
//	MessageBox(sys_message_title,"初始化信息被破坏,本系统已经超过试用期限~n如果要继续使用请向供应商联系!~n"+arg_msg)
//	HALT
//ELSEIF rslt <= 0 THEN
//	IF NOT lb_dog  THEN
//		MessageBox(sys_message_title,"本系统未检查到龙嘉加密狗,已经超过额定的试用期限"+String(ls_limitdate,'yyyy.mm.dd')+"~n如果要继续使用请向供应商联系!~n"+arg_msg)
//		HALT
//	ELSE
//		MessageBox(sys_message_title,"本系统的试用时间已经超过额定的试用期限"+String(ls_limitdate,'yyyy.mm.dd')+"~n如果要继续使用请向供应商索取特征注册码!~n"+arg_msg)
//		Open(w_sys_register)
//		IF Message.DoubleParm = 0 THEN
//			HALT
//		ELSE
//			sys_if_register = 1
//			sys_if_network = 0
//			sys_message_timeoutdate = "2999.01.01"
//		END IF
//	END IF
//ELSE
//	sys_message_timeoutdate = String(ls_limitdate,'yyyy.mm.dd')
//END IF

//st_1.text=string(obj_secu.f_getselfvolumeid(arg_msg))+'/'+obj_secu.f_getregwordstr(arg_msg)
//sle_regkey.text=obj_regkey


RETURN 1




end function