发信人: down2()
整理人: fishy(2000-03-30 10:47:08), 站内信件
|
【 在 feiquan (飞泉) 的大作中提到: 】
:（急）请问如何消除一个正在运行的程序在托盘区的图标？
首先要取得程序的 Hwnd，然后使用如下函数就可以了，
注意函数里的 LastHWND 就是取得的 Hwnd
Public Sub Del4Tray()
If LastHWND Then
Dim iconNotify As NOTIFYICONDATA
With iconNotify
.cbSize = Len(iconNotify)
.hwnd = LastHWND
.uID = 1
End With
Call Shell_NotifyIcon(NIM_DELETE, iconNotify)
Call SetWindowLong(LastHWND, GWL_WNDPROC, lpPrevWndProc)
LastHWND = 0
Set 目的窗体 = Nothing
End If
End Sub
--
欢迎访问点睛工作室（http://llf.126.com）
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.106.245.73]
|
|