delphi 托盘问题？

LZ太抠门了,,,,,,,,,,还是给你个代码吧,加入到自己窗体里......

//最上面
type
//------------------定义托盘图标的数据类型 ---------------------------
PNotifyIconData = ^TNotifyIconDataA;
TNotifyIconDataA = record
cbSize : DWORD;
Wnd : HWND;
uID : UINT;
uFlags : UINT;
uCallbackMessage : UINT;
hIcon : HICON;
szTip : array [0..63] of AnsiChar;
//szTip:String;
end;
//----------------------------------------------------------------------

//private 中加入事件

{ Private declarations }
//-------------------------------------------------------------
IconData: TNotifyIconData;
procedure ShowIcon;
procedure IconOnClick(var message:TMessage); message WM_USER+1;
Procedure WMSysCommand(Var message : TMessage) ; Message WM_SYSCOMMAND ;
//-------------------------------------------------------------

//方法的实现
//托盘图标事件
pr