用API置托盘图标

系统结构:托盘事件处理,ExtractIconA,Shell_NotifyIconA,CallWindowProc,SetWindowLong,SendMessage,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 托盘事件处理
           |  |
           |  |------ _退出程序_被选择
           |  |
           |  |------ _关于程序_被选择
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |------ _显示界面_被选择
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ExtractIconA
           |  |
           |  |---[dll]------   Shell_NotifyIconA
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   SendMessage

调用的DLL命令:

.DLL命令 ExtractIconA, 整数型, "shell32.dll", "ExtractIconA"
    .参数 窗口句柄, 整数型
    .参数 文件名称, 文本型
    .参数 图标索引, 整数型

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

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
    .参数 lpPrevWndFunc, 子程序指针
    .参数 HWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SetWindowLong, 子程序指针, "user32", "SetWindowLongA"
    .参数 HWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 子程序指针

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
    .参数 HWnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型, , Any型,根据需要可以设置成不同的类型