易语言黑月托盘图标处理源码

系统结构:对话框窗体消息处理子程序,取低十六位,创建托盘图标,删除托盘图标,修改托盘图标,修改托盘图标提示工具条,DialogBoxParam,EndDialog,GetModuleHandle,SendMessage,LoadIcon,Shell_NotifyIcon,取子菜单句柄_,InitCommonControls,复制字符串_API,取鼠标位置_API,载入菜单_API,弹出菜单_API,SetForegroundWindow,ShowWindow,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 对话框窗体消息处理子程序
           |  |
           |  |------ 取低十六位
           |  |
           |  |------ 创建托盘图标
           |  |
           |  |------ 删除托盘图标
           |  |
           |  |------ 修改托盘图标
           |  |
           |  |------ 修改托盘图标提示工具条
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   DialogBoxParam
           |  |
           |  |---[dll]------   EndDialog
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   LoadIcon
           |  |
           |  |---[dll]------   Shell_NotifyIcon
           |  |
           |  |---[dll]------   取子菜单句柄_
           |  |
           |  |---[dll]------   InitCommonControls
           |  |
           |  |---[dll]------   复制字符串_API
           |  |
           |  |---[dll]------   取鼠标位置_API
           |  |
           |  |---[dll]------   载入菜单_API
           |  |
           |  |---[dll]------   弹出菜单_API
           |  |
           |  |---[dll]------   SetForegroundWindow
           |  |
           |  |---[dll]------   ShowWindow

调用的DLL命令:

.DLL命令 DialogBoxParam, 整数型, , "DialogBoxParamA"
    .参数 hInstance, 整数型
    .参数 lpName, 整数型
    .参数 hWndParent, 整数型
    .参数 lpDialogFunc, 子程序指针
    .参数 dwInitParam, 整数型

.DLL命令 EndDialog, 整数型, , "EndDialog"
    .参数 hwnd, 整数型
    .参数 nResult, 整数型

.DLL命令 GetModuleHandle, 整数型, "kernel32.dll", "GetModuleHandleA", 公开, 获取一个应用程序或动态链接库的模块句柄　如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError
    .参数 lpModuleName, 整数型, , 指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD;  

.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA", 公开, 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;

.DLL命令 LoadIcon, 整数型, "user32.dll", "LoadIconA", 公开, 从指定的模块或应用程序实例中载入一个图标。其中，LoadIconBynum是LoadIcon函数的类型security声明　执行成功则返回已载入的图标的句柄；零表示失败。会设置GetLastError
    .参数 实例句柄, 整数型
    .参数 图标标识, 整数型

.DLL命令 Shell_NotifyIcon, 整数型, "shell32.dll", "Shell_NotifyIconA"
    .参数 dwMessage, 整数型
    .参数 lpData, NOTIFYICONDATA

.DLL命令 取子菜单句柄_, 整数型, "user32.dll", "GetSubMenu", , ,
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型

.DLL命令 InitCommonControls, , "comctl32.dll", "InitCommonControls"

.DLL命令 复制字符串_API, 整数型, "kernel32.dll", "lstrcpyA", , lstrcpyA
    .参数 文本1, 字节型, 传址 数组, RetVal
    .参数 文本2, 文本型, , Ptr

.DLL命令 取鼠标位置_API, 整数型, "user32", "GetCursorPos"
    .参数 位置, 坐标_

.DLL命令 载入菜单_API, 整数型, "user32.dll", "LoadMenuA", , 从指定的模块或应用程序实例中载入一个菜单
    .参数 模块句柄, 整数型, , hInstance,一个动态链接库的模块句柄
    .参数 菜单标识, , , lpString,参见相关帮助

.DLL命令 弹出菜单_API, 整数型, "user32.dll", "TrackPopupMenu", , 在屏幕的任意地方显示一个弹出式菜单
    .参数 菜单句柄, 整数型, , 弹出式菜单的句柄
    .参数 标志, 整数型, , 位置标志和鼠标追踪标志的组合，见下表
    .参数 横坐标, 整数型, , 这个点指定了弹出式菜单在屏幕坐标系统中的位置
    .参数 纵坐标, 整数型, , 这个点指定了弹出式菜单在屏幕坐标系统中的位置
    .参数 保留参数, 整数型, , 未使用，设为零
    .参数 窗口句柄, 整数型, , 用于接收弹出式菜单命令的窗口的句柄。应该使用窗体的窗口句柄——窗体中有一个菜单能象弹出式菜单那样接收相同的命令ID集
    .参数 矩形结构, , , 用屏幕坐标定义的一个矩形，如用户在这个矩形的范围内单击，则弹出式菜单不会关闭。如单击弹出式菜单之外的任何一个地方，则会关闭菜单。可以设为NULL

.DLL命令 SetForegroundWindow
    .参数 h

.DLL命令 ShowWindow, , , "ShowWindow", 公开, 隐藏外部窗口。
    .参数 句柄, 整数型
    .参数 参数, 整数型, , 0=(隐藏)，1=(显示)