API实现托盘气泡提示效果

tmp.uFlags ＝ #NIF_INFO ' 气泡提示
lstrcpyn (tmp.szInfo, 内容, 取文本长度 (内容) ＋ 1)
lstrcpyn (tmp.szInfoTitle, 标题, 取文本长度 (标题) ＋ 1)
tmp.dwInfoFlags ＝ #NIIF_INFO ' 信息图标
Shell_NotifyIconA (#NIM_MODIFY, tmp) ' 修改托盘图标

.判断开始 (uMsg ＝ 12345)
' 输出调试文本 (到文本 (uMsg) ＋ “ ” ＋ 到文本 (lParam))
.判断开始 (lParam ＝ #WM_LBUTTONDOWN)
信息框 (“鼠标左键单击托盘图标。”, 0, )
.判断 (lParam ＝ #WM_RBUTTONDOWN)
信息框 (“鼠标右键单击托盘图标。”, 0, )
.判断 (lParam ＝ #WM_LBUTTONDBLCLK)
信息框 (“鼠标左键双击托盘图标。”, 0, )
.判断 (lParam ＝ #NIN_BALLOONUSERCLICK) ' 气泡被出现
BALLOONSHOW ＝ 0
信息框 (“点击了气泡”, 0, )
.判断 (lParam ＝ #NIN_BALLOONSHOW) ' 气泡出现
BALLOONSHOW ＝ 1
.判断 (lParam ＝ #NIN_BALLOONTIMEOUT) ' 气泡出现自动销毁
BALLOONSHOW ＝ 0
输出调试文本 (“气泡自动销毁”)
.判断 (lParam ＝ #NIN_BALLOONHIDE)

.判断 (lParam ＝ 512) ' 鼠标移动
.判断开始 (BALLOONSHOW ＝ 0)
托盘提示_弹出 (“正在同步1个文件(↑1)”, “易语言5.11.exe” ＋ #换行符 ＋ “↑ 98.1%，776.5KB/s” ＋ #换行符 ＋ “ 点击查看传输详情”)