马上注册，结交更多易友，享用更多功能，让你轻松玩转觅风论坛。
您需要 登录 才可以下载或查看，没有账号？立即注册
x
.版本 2
.支持库 edroptarget
.支持库 xplib
.支持库 shell
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (编辑框1.取窗口句柄 ())
拖放对象2.注册拖放控件 (编辑框2.取窗口句柄 ())
置托盘图标 (#图片1, )
XP风格 (1)
编辑框3.内容 ＝ “系统当前时间：” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “ : ” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “ : ” ＋ 到文本 (取秒 (取现行时间 ()))
写配置项 (取运行目录 () ＋ “\time.ini”, “定时1”, “h”, “8”)
写配置项 (取运行目录 () ＋ “\time.ini”, “定时1”, “m”, “10”)
写配置项 (取运行目录 () ＋ “\time.ini”, “定时2”, “h”, “9”)
写配置项 (取运行目录 () ＋ “\time.ini”, “定时2”, “m”, “10”)
定时1h.内容 ＝ 读配置项 (取运行目录 () ＋ “\time.ini”, “定时1”, “h”, )
定时1m.内容 ＝ 读配置项 (取运行目录 () ＋ “\time.ini”, “定时1”, “m”, )
定时2h.内容 ＝ 读配置项 (取运行目录 () ＋ “\time.ini”, “定时2”, “h”, )
定时2m.内容 ＝ 读配置项 (取运行目录 () ＋ “\time.ini”, “定时2”, “m”, )
.子程序 _系统时间_周期事件, , , 显示系统当前时间
编辑框3.内容 ＝ “系统当前时间：” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “ : ” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “ : ” ＋ 到文本 (取秒 (取现行时间 ()))
.子程序 __启动窗口_位置被改变, , , 托盘图标
.如果真 (_启动窗口.位置 ＝ 2)
_启动窗口.可视 ＝ 假
置托盘图标 (#图片1, )
.如果真结束
.子程序 __启动窗口_托盘事件, , , 托盘事件
.参数 操作类型, 整数型
.如果 (操作类型 ＝ #单击左键)
_启动窗口.可视 ＝ 真
_启动窗口.位置 ＝ 1
置托盘图标 (#图片1, )
.否则
.如果 (操作类型 ＝ #单击右键)
弹出托盘菜单 (托盘菜单)
.否则
.如果结束
.如果结束
.子程序 _显示_被选择, , , 托盘菜单1
_启动窗口.可视 ＝ 真
_启动窗口.位置 ＝ 1
置托盘图标 (#图片2, )
.子程序 _关闭_被选择, , , 托盘菜单2
销毁 ()
.子程序 _目录_被单击, , , 打开目录
执行 (2, 取运行目录 (), , , )
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
编辑框1.内容 ＝ “ ” ＋ 接收到的文件路径
.子程序 _拖放对象2_得到文件
.参数 接收到的文件路径, 文本型
编辑框2.内容 ＝ “ ” ＋ 接收到的文件路径
.子程序 _程序1定时_周期事件
.如果真 (选择框1.选中 ＝ 真 且 取小时 (取现行时间 ()) ＝ 到数值 (定时1h.内容) 且 取分钟 (取现行时间 ()) ＝ 到数值 (定时1m.内容) 且 取秒 (取现行时间 ()) ＝ 1)
执行 (4, 删首空 (编辑框1.内容), , , )
延时 (100)
选择框1.选中 ＝ 假
.如果真结束
.子程序 _程序2定时_周期事件
.如果真 (选择框2.选中 ＝ 真 且 取小时 (取现行时间 ()) ＝ 到数值 (定时2h.内容) 且 取分钟 (取现行时间 ()) ＝ 到数值 (定时2m.内容) 且 取秒 (取现行时间 ()) ＝ 1)
执行 (4, 删首空 (编辑框2.内容), , , )
延时 (100)
选择框2.选中 ＝ 假
.如果真结束
.子程序 _配置项_被单击
执行 (1, 取运行目录 () ＋ “\time.ini”, , , )
.子程序 _编辑框2_内容被改变
|
