怎样制作任务栏程序？（就是像病毒防火墙那样只在任务栏中有一个图标的）

Question

不算特别的复杂。用API将图标放入，
主要是处理点击消息。

Answer 1

用Shell_NotifyIcon函数，具体怎么用查windows sdk手册！

Answer 2

用TrayIcon控件是最快速的了，可以设任务栏菜单，图标动画等，功能齐全，自己写的话就像
dde2001(失落人)说的去做就行了，主要是处理点击消息。 

Answer 3

rx控件的系统托盘控件比较好用，你先安装上RX，在找那个控件

Answer 4

共同学习http://www.ccidnet.com/tech/guide/2001/09/24/58_3326.html

Answer 5

const
    WM_TrayMessage=WM_User+100;  protected
      procedure AppMinimized(Sender: TObject);
      procedure WMTrayMessage(var msg:TMessage);message WM_TrayMessage;uses ShellApivar
  NID:TNotifyIconData{点击了任务栏的图标}
procedure TMainForm.WMTrayMessage(var msg:TMessage);
var
  p:TPoint;
begin
  if msg.LParam=WM_LButtonDown then
  begin
    ShowWindow(Application.Handle,SW_Show);
    Application.Restore;
  end
  else if msg.LParam=WM_RButtonDown then 
  begin
    GetCursorPos(p);
    pmTray.Popup(p.x,p.y);
  end;
end;{应用程序最小化时图标显示在任务栏}
procedure TMainForm.AppMinimized(Sender:TObject);
begin
  NID.cbSize:=SizeOf(TNotifyIconData);
  NID.hIcon:=Application.Icon.Handle;
  NID.szTip:= 'taxi';
  NID.uCallbackMessage:=WM_TrayMessage;
  NID.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
  NID.uID:=0;
  NID.Wnd:=Handle;
  Shell_NotifyIcon(NIM_ADD,@NID);
  ShowWindow(Application.Handle,SW_Hide);
end;procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnMinimize:=AppMinimized;
  AppMinimized(nil);
end;procedure TMainForm.FormDestroy(Sender: TObject);
begin
  Shell_NotifyIcon(NIM_DELETE,@NID);
end;