如何将程序放入托盘？

Question

在VB5.0的光盘中,有一个叫UNSUPPORT的目录,下面有个叫SYSTRAY的例子,用VB打开他,然后在文件菜单里选择:生成systray.ocx,然后你就可以使用这个托盘控件了,很简单的,如果你不想用OCX,那么用API也可以实现,给我发E-MAIL,我会给你例子的

Answer 1

定义一个notifiicon:
Type NOTIFYICONDATA
cbsize As Long      
hwnd As Long    ‘窗口的句并
uID As Long       ’为图标设一个ID
uCallbackMessage As Long      ’当你点饥托盘图标时返回的消息（自定义）
hIcon As Long                 ‘准备防如托盘的icon的句并
szTip As String * 64           ’鼠标放到托盘上时显示的提示信息
uFlags As Long                ‘上面的几项那些有效
End Type
使用一个API:
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long给这个notifiicon付值，比如：
dim nid as nptifyicon
nid.cbsize = Len(nid)
nid.hwnd = Me.hwnd
nid.hIcon = me.icon
nid.szTip = "哈哈哈" + Chr(0)
nid.uCallbackMessage = WM_USER + 100
nid.uFlags = NIF_ICON + NIF_TIP + NIF_MESSAGE    'ucallbackmessage,hicon,sztip都有效
nid.uID = 9999现在用shell_notifyicon函数吧：Shell_NotifyIcon NIM_ADD, nid  ’加入ICON     NIM_ADD=0
Shell_NotifyIcon NIM_MODIFY, nid   '修改          NIM_MODIFY=1
Shell_NotifyIcon NIM_DELETE, nid   '删除                  2
为了点饥ICON时能执行一段命令，比如弹出个菜单什么的，还要写一个WndProc,。。