|
发表于 2008-2-21 11:47:58| 字数 1,515| - 中国–广东–中山 电信
|
显示全部楼层
呵呵,在用易语言,偶尔写点儿小程序,感觉对我这种菜鸟还有点儿用处....
也贴点儿代码上来,欢迎大家拍砖....
.版本 2
.支持库 iext2
.支持库 iext
.支持库 shellEx
.支持库 HtmlView
.程序集 启动窗口程序集
.程序集变量 全局原子, 整数型
.子程序 __启动窗口_创建完毕
是否已在运行 ()
_启动窗口.移动 (-1, -1, 取屏幕宽度 () + 4, 取屏幕高度 () - 28)
标题栏.移动 (, , _启动窗口.宽度, )
X.移动 (_启动窗口.宽度 - 8, , , )
最小化.移动 (_启动窗口.宽度 - 72, , , )
最大化.移动 (_启动窗口.宽度 - 48, , , )
关闭.移动 (_启动窗口.宽度 - 24, , , )
浏览框.移动 (-1, -1, _启动窗口.宽度 + 20, _启动窗口.高度 + 2)
载入 (设置窗口, , 真)
设置窗口.销毁 ()
置托盘图标 (#A, “天空左岸”)
.如果 (注册项是否存在 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Skywar”))
设为自动运行.可视 = 假
.否则
取消自动运行.可视 = 假
.如果结束
.子程序 _标题栏_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果 (_启动窗口.可视 = 真)
_启动窗口.可视 = 假
.否则
_启动窗口.可视 = 真
.如果结束
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.判断开始 (操作类型 = #单击右键)
_启动窗口.可视 = 真
弹出托盘菜单 (程序)
.判断 (操作类型 = #单击左键)
.如果 (_启动窗口.可视 = 真)
_启动窗口.可视 = 假
.否则
_启动窗口.可视 = 真
.如果结束
.默认
.判断结束
.子程序 _窗口模式_被选择
浏览框.移动 (, 24, , _启动窗口.高度 - 22)
标题栏.可视 = 真
最小化.可视 = 真
最大化.可视 = 真
关闭.可视 = 真
_.可视 = 假
X.可视 = 假
窗口模式.可视 = 假
全屏模式.可视 = 真
.子程序 _全屏模式_被选择
浏览框.移动 (, -1, , _启动窗口.高度 + 2)
标题栏.可视 = 假
最小化.可视 = 假
最大化.可视 = 假
关闭.可视 = 假
_.可视 = 真
X.可视 = 真
全屏模式.可视 = 假
窗口模式.可视 = 真
.子程序 _热键设置_被选择
设置窗口.可视 = 真
载入 (设置窗口, _启动窗口, 假)
.子程序 _退出_被选择
销毁 ()
.子程序 __启动窗口_将被销毁
撤销热键 (_启动窗口.取窗口句柄 (), 热键ID)
全局删除原子 (全局原子)
置托盘图标 (, )
.子程序 是否已在运行
全局原子 = 全局查找原子 (“Skywar”)
.如果 (全局原子 ≠ 1179648 且 全局原子 ≠ 0)
信息框 (“程序已在运行中,请点击任务栏小图标!”, #确认钮 + #信息图标, )
结束 ()
.否则
.如果结束
全局原子 = 全局添加原子 (“Skywar”)
.子程序 _设为自动运行_被选择
设为自动运行.可视 = 假
取消自动运行.可视 = 真
写注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Skywar”, 取运行目录 () + “\” + 取执行文件名 ())
.子程序 _取消自动运行_被选择
设为自动运行.可视 = 真
取消自动运行.可视 = 假
删除注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Skywar”)
.子程序 _最小化_被单击
_启动窗口.可视 = 假
.子程序 _最大化_被单击
_全屏模式_被选择 ()
.子程序 _关闭_被单击
销毁 ()
.子程序 ___鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
_启动窗口.可视 = 假
.子程序 _X_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
销毁 ()
.子程序 _时钟_周期事件
内存优化 () |
|