隐藏进程管理器图标，最小化托盘也可以

.判断循环首 (r ≠ 0)
.如果真 (寻找文本 (到文本 (uprocess.szexefile), 编辑框1.内容, , 真) ≠ -1)
dprocessid ＝ uprocess.th32processid
.如果真结束
r ＝ Process32Next (hsnapshot, uprocess)
.判断循环尾 ()
CloseHandle (hsnapshot)
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)
.判断循环尾 ()