请问下托盘怎么做？？？ ( 积分: 50 )

请问下托盘怎么做？？详细点。

unit&nbsp;NotifyIcon;<br><br>interface<br><br>uses<br>&nbsp;&nbsp;Messages,&nbsp;Windows,&nbsp;SysUtils,&nbsp;Classes,&nbsp;shellapi,StrUtils,<br>&nbsp;&nbsp;Forms,&nbsp;Menus,&nbsp;Graphics;<br>const&nbsp;&nbsp;NotifyMsg&nbsp;=&nbsp;WM_USER+1;&nbsp;&nbsp;&nbsp;&nbsp;//托盘自定义消息<br>type<br>&nbsp;&nbsp;TNotifyIcon&nbsp;=&nbsp;class(TComponent)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//自TComponent&nbsp;派生<br>&nbsp;&nbsp;private<br>&nbsp;&nbsp;&nbsp;&nbsp;FData:&nbsp;TnotifyIconData;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//系统托盘所需的数据<br>&nbsp;&nbsp;&nbsp;&nbsp;FEnabled:&nbsp;Bool;<br>&nbsp;&nbsp;&nbsp;&nbsp;FOnClick:&nbsp;TNotifyEvent;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;FOnDblClick:&nbsp;TNotifyEvent;<br>&nbsp;&nbsp;&nbsp;&nbsp;FPopupMenu:&nbsp;TPopupMenu;<br>&nbsp;&nbsp;&nbsp;&nbsp;FIcon:&nbsp;TIcon;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//托盘图标<br>&nbsp;&nbsp;&nbsp;&nbsp;FTimer:&nbsp;Bool;<br>&nbsp;&nbsp;&nbsp;&nbsp;FDblClickTime:&nbsp;Cardinal&nbsp;;<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;SetEnabled(Flag:&nbsp;Bool);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;SetIcon(h:&nbsp;TICON);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;SetTip(s:&nbsp;string);<br>&nbsp;&nbsp;&nbsp;&nbsp;function&nbsp;&nbsp;GetTip:&nbsp;string;<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;WndProc(var&nbsp;Msg:&nbsp;TMessage);<br>&nbsp;&nbsp;public<br>&nbsp;&nbsp;&nbsp;&nbsp;constructor&nbsp;Create(AOwner:&nbsp;TComponent);&nbsp;override;<br>&nbsp;&nbsp;&nbsp;&nbsp;destructor&nbsp;Destroy;&nbsp;override;<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;Show;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//显标图标<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;Hide;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//隐藏图标<br>&nbsp;&nbsp;published<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;Handle:&nbsp;HWND&nbsp;read&nbsp;FData.Wnd;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//托盘的句柄<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;Enabled&nbsp;:&nbsp;Bool&nbsp;read&nbsp;FEnabled&nbsp;Write&nbsp;SetEnabled&nbsp;default&nbsp;False;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//显示或隐藏<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;OnClick&nbsp;:&nbsp;TNotifyEvent&nbsp;read&nbsp;FOnClick&nbsp;Write&nbsp;FOnClick;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//单击左键时响应<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;OnDblClick&nbsp;:&nbsp;TNotifyEvent&nbsp;read&nbsp;FOnDblClick&nbsp;Write&nbsp;FOnDblClick;&nbsp;&nbsp;&nbsp;//双击左键时响应<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;PopupMenu&nbsp;:&nbsp;TPopupMenu&nbsp;read&nbsp;FPopupMenu&nbsp;Write&nbsp;FPopupMenu;&nbsp;&nbsp;//单击右键时响应，弹出菜单<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;Icon&nbsp;:&nbsp;TICON&nbsp;read&nbsp;FIcon&nbsp;&nbsp;Write&nbsp;SetIcon;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;图标<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;Tip&nbsp;:&nbsp;String&nbsp;read&nbsp;GetTip&nbsp;write&nbsp;settip&nbsp;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//提示<br>&nbsp;&nbsp;end;<br>procedure&nbsp;Register;<br><br>implementation<br><br>constructor&nbsp;TNotifyIcon.Create(AOwner:&nbsp;TComponent);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//构造函数，初始化变量<br>begin<br>&nbsp;&nbsp;inherited&nbsp;Create(AOwner);<br>&nbsp;&nbsp;FTimer&nbsp;:=&nbsp;False;<br>&nbsp;&nbsp;FDblClickTime&nbsp;:=&nbsp;GetDoubleClickTime;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//获取双击时间间隔<br>&nbsp;&nbsp;FEnabled&nbsp;:=&nbsp;False;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;FData.Wnd&nbsp;:=&nbsp;Classes.AllocateHWnd(WndProc);&nbsp;&nbsp;&nbsp;//&nbsp;设置回调函数<br>&nbsp;&nbsp;FData.cbSize&nbsp;:=&nbsp;sizeof(TNotifyIconData);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;FData.uCallbackMessage&nbsp;:=NotifyMsg;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;FData.szTip&nbsp;:=&nbsp;'';<br>&nbsp;&nbsp;FData.uID&nbsp;:=&nbsp;UINT(self);<br>&nbsp;&nbsp;FData.uFlags&nbsp;:=&nbsp;nif_icon&nbsp;+&nbsp;nif_tip&nbsp;+&nbsp;nif_message;<br>&nbsp;&nbsp;Icon&nbsp;:=&nbsp;application.Icon&nbsp;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//默认初始化图标为主程序图标<br>end;<br><br>destructor&nbsp;TNotifyIcon.Destroy;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//析构函数<br>begin<br>&nbsp;&nbsp;if&nbsp;FEnabled&nbsp;then&nbsp;Enabled&nbsp;:=false;<br>&nbsp;&nbsp;Classes.DeallocateHWnd(FData.Wnd);<br>&nbsp;&nbsp;inherited&nbsp;Destroy;<br>end;<br><br>procedure&nbsp;TNotifyIcon.SetIcon(h:TICON)&nbsp;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//设置图标<br>begin<br>&nbsp;&nbsp;FIcon&nbsp;:=&nbsp;h;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;FData.hIcon&nbsp;:=&nbsp;FIcon.Handle&nbsp;;<br>&nbsp;&nbsp;if&nbsp;Enabled&nbsp;then&nbsp;Shell_NotifyIcon(NIM_MODIFY,@FData);<br>end;<br><br>procedure&nbsp;TNotifyIcon.SetTip(s:string);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//设置提示语<br>begin<br>&nbsp;&nbsp;if&nbsp;length(s)&gt;63&nbsp;then&nbsp;s:=midstr(s,1,63);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//最长为64字节，所以超过63字节需要截断<br>&nbsp;&nbsp;strcopy(Fdata.szTip&nbsp;,pchar(s));<br>&nbsp;&nbsp;if&nbsp;Enabled&nbsp;then&nbsp;Shell_NotifyIcon(NIM_MODIFY,@FData);<br>end;<br><br>function&nbsp;TNotifyIcon.GetTip&nbsp;:string;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//获取提示语<br>begin<br>&nbsp;&nbsp;Result&nbsp;:=&nbsp;Fdata.sztip;<br>end;<br><br>procedure&nbsp;TNotifyIcon.Show&nbsp;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//在托盘显示图标<br>begin<br>&nbsp;&nbsp;Enabled&nbsp;:=True;<br>end;<br><br>procedure&nbsp;TNotifyIcon.Hide&nbsp;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//隐藏图标<br>begin<br>&nbsp;&nbsp;Enabled&nbsp;:=False;<br>end;<br><br>procedure&nbsp;TNotifyIcon.SetEnabled(Flag:Bool)&nbsp;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//显示或隐藏图标<br>begin<br>&nbsp;&nbsp;if&nbsp;Flag&nbsp;=&nbsp;Fenabled&nbsp;then&nbsp;exit;<br>&nbsp;&nbsp;if&nbsp;Flag&nbsp;then&nbsp;&nbsp;shell_notifyicon(NIM_ADD,@FData)<br>&nbsp;&nbsp;else&nbsp;&nbsp;&nbsp;shell_notifyicon(NIM_Delete,@FData);<br>&nbsp;&nbsp;FEnabled&nbsp;:=&nbsp;not&nbsp;FEnabled;<br>end;<br><br>procedure&nbsp;TNotifyIcon.WndProc(var&nbsp;Msg:&nbsp;TMessage)&nbsp;;&nbsp;&nbsp;&nbsp;&nbsp;//回调函数<br>var&nbsp;p:&nbsp;TPoint;<br>begin<br>&nbsp;&nbsp;if&nbsp;Msg.Msg&nbsp;=&nbsp;NotifyMsg&nbsp;then&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;case&nbsp;msg.LParam&nbsp;&nbsp;of<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WM_LBUTTONUP:begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//左键弹起，如果只定义OnClick&nbsp;则立即响应<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;assigned(FOnClick)&nbsp;and&nbsp;not&nbsp;assigned(FOnDblClick)&nbsp;then&nbsp;OnClick(self);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WM_LBUTTONDOWN:begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//左键落下，如果单击和双击同时定义，则启用定时器，<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;assigned(FOnClick)&nbsp;and&nbsp;assigned(FOnDblClick)&nbsp;then&nbsp;begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//以判断是单击还是双击<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetTimer(Handle,1,FDblClickTime,nil);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//如果不是同时定义则不响应<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FTimer&nbsp;:=True;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WM_LBUTTONDBLCLK&nbsp;:begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//左键双击，<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;FTimer&nbsp;then&nbsp;begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//如果有定时器，则取消定时器<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;KillTimer(Handle,1);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FTimer:=False;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;assigned(FOnDblClick)&nbsp;then&nbsp;OnDblClick(self);&nbsp;&nbsp;&nbsp;//如果定义双击则响应<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WM_RBUTTONUP&nbsp;:&nbsp;begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//右键弹起，响应菜单<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;assigned(FPopupMenu)&nbsp;then&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;GetCursorPos(p);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FPopupMenu.Popup(p.x,p.Y);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;msg.Result&nbsp;:=0;<br>&nbsp;&nbsp;end&nbsp;else&nbsp;if&nbsp;msg.Msg&nbsp;=&nbsp;WM_TIMER&nbsp;then&nbsp;begin&nbsp;&nbsp;&nbsp;//定时器结束，响应单击。<br>&nbsp;&nbsp;&nbsp;&nbsp;KillTimer(Handle,1);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//在单击、双击同时定义的情况下，没有双击<br>&nbsp;&nbsp;&nbsp;&nbsp;FTimer&nbsp;:=&nbsp;False;<br>&nbsp;&nbsp;&nbsp;&nbsp;FOnClick(self);<br>&nbsp;&nbsp;end;<br>end;<br><br>procedure&nbsp;Register;<br>begin<br>&nbsp;&nbsp;RegisterComponents('System',&nbsp;[TNotifyIcon]);<br>end;<br><br>end.<br>你也可以直接下载CoolTrayIcon这类的控件

谢了，还有个问题，当关闭程序的时候怎么样进入托盘化。