如何在状态栏中加入图标,图片,还有动态的时间

function Shell_NotifyIcon(dwMessage:DWORD;lpData:PNotifyIconData):BOOL;stdcall;
源代码网推荐 在shellapi单元中。
源代码网推荐 dwMessage:NIM_ADD
源代码网推荐 NIM_MODIFY
源代码网推荐 NIM_DELETE
源代码网推荐 PNotifyIconData=^TNotifyIconDataA
源代码网推荐 TNotifyIconDataA=record
源代码网推荐 cbSize:DWORD;
源代码网推荐 Wnd:HWND;
源代码网推荐 uID:UINT;
源代码网推荐 uFlags:UINT;
源代码网推荐 uCallbackMessage:UINT;
源代码网推荐 hIcon:HICON;
源代码网推荐 szTip:array[0..63] of AnsiChar;
源代码网推荐 end;
源代码网推荐 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
源代码网推荐 ...
源代码网推荐 const
源代码网推荐 MyIconID=1;
源代码网推荐 MyIconEvent=WM_USER 1;
源代码网推荐 ...
源代码网推荐 private
源代码网推荐 ...
源代码网推荐 MyIcon:TIcon;
源代码网推荐 ...
源代码网推荐 //Install
源代码网推荐 var
源代码网推荐 IconData:TNotifyIcon;
源代码网推荐 ...
源代码网推荐 MyIcon:=TIcon.Create;
源代码网推荐 MyIcon.LoadFromFile("icon1.ico");
源代码网推荐 with IconData do
源代码网推荐 begin
源代码网推荐 cbSize:=SizeOf(IconData); //
源代码网推荐 Wnd:=Form1.Handle; //
源代码网推荐 uID:=MyIconID; //
源代码网推荐 uFlags:=NIF_ICON;
源代码网推荐 uCallBackMessage:=MyIconEvent;
源代码网推荐 hIcon:=Handle; //Change
源代码网推荐 szTip:="My Test Icon";
源代码网推荐 Shell_NotifyIcon(NIM_ADD,@IconData);
源代码网推荐 ...
源代码网推荐 //做了标记的是改或删时要设的。
源代码网推荐 //precedure IconOnClick(msg:TMessage);message MyIconEvent;

源代码网推荐 if(msg.lParam=WM_RBUTTONDOWN) then
源代码网推荐 GetCursorPos(p); //p:TPoint;
源代码网推荐 PopupMenu1.Popup(p.x,p.y);