我做了个托盘程序就是关闭程序后,在托盘里还有程序的ICO图标用鼠标移动到那时 就会消失 请问怎么可以在关闭程序时同时删除托盘里的图标??

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim ret As Long ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc) Call UnregisterHotKey(Me.hwnd, uVirtKey) With notifyTemp .cbSize = Len(notifyTemp) .hwnd = picShow.hwnd .uId = 1& End With Shell_NotifyIcon NIM_DELETE, notifyTempEnd Sub

GWL_WNDPROC变量为定义

其实只需Shell_NotifyIcon NIM_DELETE, notifyTemp一句即可，notifyTemp为自定义的托盘对象附：Private Const NIM_DELETE = &H2 Private Const GWL_WNDPROC = (-4)

http://www.bc-cn.net/bbs/dispbbs.asp?boardid=6&id=52083&star=10#72535我以前写的文，应该能看明白。