清除系统托盘残留图标

孤独爱恋 · 发表于 2013-4-14 01:15:41

如果程序非法退出，那程序的系统托盘图标就会残留在托盘里，需要鼠标划过了才会消失，所以就模拟了一下鼠标划过，本来应该用后台的，偷懒一下，懒得去弄了，凑合用吧
.版本 2
.局部变量句柄, 整数型
.局部变量位置大小, 精易_矩形
.局部变量 QYDX_R, 整数型
.局部变量 QYDX_B, 整数型
.局部变量 QYDX_H, 整数型
.局部变量 MoveN, 整数型
.局部变量 QYDX_N, 整数型
句柄＝窗口_取句柄 (, , “Shell_TrayWnd”, )
句柄＝窗口_取句柄 (句柄, , “TrayNotifyWnd”, )
句柄＝窗口_取句柄 (句柄, , “SysPager”, )
句柄＝窗口_取句柄 (句柄, , “ToolbarWindow32”, )
位置大小＝窗口_取位置和大小 (句柄)
QYDX_R ＝位置大小.右边
QYDX_B ＝位置大小.底边
.如果 (QYDX_B ＞ 18)
QYDX_H ＝ QYDX_B ÷ 18
.否则
QYDX_H ＝ 1
.如果结束
MoveN ＝ 0
QYDX_N ＝ 0
.判断循环首 (QYDX_N ＜ QYDX_H)
.判断循环首 (MoveN ＜ QYDX_R)
      ' 后台鼠标
      鼠标_移动 (句柄, MoveN, 9 × QYDX_N)
      MoveN ＝ MoveN ＋ 1
      处理事件 ()
.判断循环尾 ()
QYDX_N ＝ QYDX_N ＋ 1
MoveN ＝ 0
处理事件 ()
.判断循环尾 ()