call super::clicked;
string ls_registration
string ls_registration1
string ls_temp
string ls_temp1
string ls_temp2
integer i
integer j
boolean b_isok = false

b_isok = false
ls_registration = parent.st_r1.text
ls_registration1 = trim(parent.sle_l1.text) + "-" + trim(parent.sle_l2.text) + "-" + trim(parent.sle_l3.text) + "-" + trim(parent.sle_l4.text)
ls_registration = f_admissionnumber(ls_registration)

if ls_registration1 <> ls_registration then
        messagebox(gs_msg_title,"对不起，您输入的许可号不正确，请重新输入！")
        return 1
else
        b_isok = true
end if

if b_isok then
        setprofilestring(gs_syspath + "\\rocfly.ini","qxqp","licensekey",ls_registration1)
        setprofilestring(gs_winpath + "\\rocfly.ini","qxqp","usetype","2")
        setprofilestring(gs_syspath + "\\rocfly.ini","qxqp","usetype","2")
        registryset("HKEY_LOCAL_MACHINE\Software\rocfly\qxqp","usetype",regstring!,"2")
        messagebox(gs_msg_title,"恭喜您，您注册成功了,请重新启动系统！")
        gs_usetype = "2"
        parent.rocbool = true
        close(w_registration)
else
        messagebox(gs_msg_title,"对不起，您输入的许可号不正确，请重新输入！")
end if

return

WINDOWS目录下边有个 rocfly.ini  文件  软件安装目录下有个REG.DLL 文件 用Borland C++ DLL Method 2  写的  这个什么意思？

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课