最小化到托盘消息源码

最小化到托盘消息，源码是易语言API函数的应用教程。

@易语言学习论坛

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 窗口句柄, 整数型

_启动窗口.置托盘图标 (#xcg, )
窗口句柄 ＝ _启动窗口.取窗口句柄 ()
RegisterHotKey (窗口句柄, #SC_MINIMIZE, 0, 0)
默认窗口程序 ＝ 置窗口特征 (窗口句柄, -4, &消息分析)

.子程序 消息分析, 整数型
.参数 窗口句柄, 整数型
.参数 消息, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型

.如果真 (参数1 ＝ #SC_MINIMIZE)
    消息 ＝ 24
    _启动窗口.可视 ＝ 假
.如果真结束
返回 (执行窗口程序 (默认窗口程序, 窗口句柄, 消息, 参数1, 参数2))

.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型

' 1、#单击左键；2、#双击；3、#单击右键。
.如果真 (操作类型 ＝ #双击)
    _启动窗口.可视 ＝ 真
.如果真结束