E语言如何给编辑的软件加时间限制啊？

E语言如何给编辑的软件加时间限制啊？

请在7200时那里修改软件使用的时间期限，7200为秒单位（用户开启软件到结束期间只能使用2个小时），如为其他单位请转换成秒，或者自己修改格式。

.版本 2
.程序集 窗口程序集1
.程序集变量 安装时间, 日期时间型
.程序集变量 剩余使用期限, 整数型
.程序集变量 显示时间_时, 整数型
.程序集变量 显示时间_分, 整数型
.程序集变量 显示时间_秒, 整数型
.子程序 __启动窗口_创建完毕
.如果真 (注册项是否存在 (#本地机器, “Software\ruanjian\time”) ＝ 假)
写注册项 (#本地机器, “Software\ruanjian\time”, 到文本 (取网络时间 ()))
.如果真结束
安装时间 ＝ 到时间 (取文本注册项 (#本地机器, “Software\ruanjian\time”, ))
剩余使用期限 ＝ 取整 (7200 － 取时间间隔 (取现行时间 (), 安装时间, #秒)) ' 这里7200为“秒”为单位120钟，请先化为秒数后再进行写入
显示时间_时 ＝ 到整数 (剩余使用期限) ÷ 3600
显示时间_分 ＝ (到小数 (剩余使用期限 ÷ 3600) － 显示时间_时) × 60
显示时间_秒 ＝ ((到小数 (剩余使用期限 ÷ 3600) － 显示时间_时) × 60 － 显示时间_分) × 60
.如果 (剩余使用期限 ≤ 0)
信息框 (“使用期限已到！”, 0, )
.如果 (信息框 (“您是否想注册还是退出呢？”, #确认取消钮, “请选择否则退出！”) ＝ 0)
_按钮1_被单击 ()
.否则
结束 ()
.如果结束
.否则
信息框 (“剩余使用期限：” ＋ 到文本 (显示时间_时) ＋ “小时” ＋ 到文本 (显示时间_分) ＋ “分” ＋ 到文本 (显示时间_秒) ＋ “秒”, 0, )

有两种办法，在这里说比较麻烦，请加我QQ915889517细说···