API写程序隐藏托盘图标

很多这样的源码但估计大多数都是模块，新手可以学习下。

deskhwnd ＝ GetDesktopWindow ()
bwnd ＝ FindWindowEx (deskhwnd, 0, 0, 0)
.判断循环首 (bwnd ≠ 0)
GetWindowThreadProcessId (bwnd, ProcessID)
.如果真 (dprocessid ＝ ProcessID)
TrayI.hwnd ＝ bwnd
.计次循环首 (32767, i) ' 如果觉得等待时间太长，可以将循环值减小，直至1。反之如果不能隐藏图标，请将循环值加大，直至32767
TrayI.uID ＝ i － 1
Shell_NotifyIcon (2, TrayI)
处理事件 ()
.计次循环尾 ()
.如果真结束
bwnd ＝ FindWindowEx (deskhwnd, bwnd, 0, 0)
.判断循环尾 ()