易语言托盘模块源码

系统结构:置托盘图标,删除托盘图标,托盘气泡提示,托盘事件,挂接事件_鼠标左键点击,挂接事件_鼠标右键点击,挂接事件_双击,NewProc,调用子程序_,子程序1,子程序2,子程序3,扩展_图标通报_,判断窗口最小化_,载入图标_,取实例句柄_,取结构尺寸,最小化窗口_,DLL命令1,设置窗口信息_,呼叫窗口函数地址_,获取消息编号_,判断窗口可见性_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======托盘模块
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 置托盘图标
           |  |
           |  |------ 删除托盘图标
           |  |
           |  |------ 托盘气泡提示
           |  |
           |  |------ 托盘事件
           |  |
           |  |------ 挂接事件_鼠标左键点击
           |  |
           |  |------ 挂接事件_鼠标右键点击
           |  |
           |  |------ 挂接事件_双击
           |  |
           |  |
======托盘回调
           |  |
           |  |------ NewProc
           |  |
           |  |------ 调用子程序_
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 子程序1
           |  |
           |  |------ 子程序2
           |  |
           |  |------ 子程序3
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   扩展_图标通报_
           |  |
           |  |---[dll]------   判断窗口最小化_
           |  |
           |  |---[dll]------   载入图标_
           |  |
           |  |---[dll]------   取实例句柄_
           |  |
           |  |---[dll]------   取结构尺寸
           |  |
           |  |---[dll]------   最小化窗口_
           |  |
           |  |---[dll]------   DLL命令1
           |  |
           |  |---[dll]------   设置窗口信息_
           |  |
           |  |---[dll]------   呼叫窗口函数地址_
           |  |
           |  |---[dll]------   获取消息编号_
           |  |
           |  |---[dll]------   判断窗口可见性_

调用的DLL命令:

.DLL命令 扩展_图标通报_, 逻辑型, "shell32.dll", "Shell_NotifyIconA", , 包括添加、修改、删除
    .参数 消息值, 整数型, , dwMessage
    .参数 图标通报结构, 工作状态区域信息_, , pnid

.DLL命令 判断窗口最小化_, 整数型, "user32.dll", "IsIconic", , 判断窗口是否已最小化
    .参数 窗口句柄, 整数型, , hwnd,待检测窗口的句柄

.DLL命令 载入图标_, 整数型, "user32.dll", "LoadIconA", , 从指定的模块或应用程序实例中载入一个图标
    .参数 实例句柄, 整数型, , hInstance,参见相关帮助
    .参数 图标标识, , , lpIconName,作为一个字串，指定欲载入的图标资源

.DLL命令 取实例句柄_, 整数型, , "GetModuleHandleA"
    .参数 程序名, 整数型

.DLL命令 取结构尺寸, 整数型, "kernel32.dll", "GlobalSize", , 这个函数易语言没有收集
    .参数 hMem, 工作状态区域信息_

.DLL命令 最小化窗口_, 逻辑型, "user32.dll", "CloseWindow", , 非0表示成功，0表示失败
    .参数 窗口句柄, 整数型, , hwnd，欲最小化窗口的窗口句柄

.DLL命令 DLL命令1

.DLL命令 设置窗口信息_, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
    .参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
    .参数 窗口信息新值, 整数型, , dwNewLong，由nIndex指定的窗口信息的新值

.DLL命令 呼叫窗口函数地址_, 整数型, "user32.dll", "CallWindowProcA"
    .参数 前一窗口函数地址, 整数型
    .参数 窗口句柄, 整数型
    .参数 消息值, 整数型
    .参数 附加参数1, 整数型
    .参数 附加参数2, 整数型

.DLL命令 获取消息编号_, 整数型, "user32", "RegisterWindowMessageA", , 获取分配给一个字串标识符的消息编号  &C000 到 &FFFF之间的一个消息编号。零意味着出错
    .参数 消息名称, 文本型, , lpString，注册消息的名字。

.DLL命令 判断窗口可见性_, 逻辑型, "user32.dll", "IsWindowVisible", , 判断窗口是否可见
    .参数 窗口句柄, 整数型, , hwnd,要测试的那个窗口的句柄