我想在任務欄最右邊的小區域(時間旁)做一個會一閃一閃的小圖標，就象OICQ的一樣

老兄我也很想做出你那样的效果，可不理想，你看看我的这个程序---希望对你有帮助：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const   //这些是在image editor中做的六个图标，且是逐渐增大的。
 icons:array[0..9] of string=('icon1.ico','icon2.ico','icon3.ico','icon4.ico',
  'icon5.ico','icon6.ico','icon5.ico','icon4.ico','icon3.ico','icon2.ico');var
  Form1: TForm1;
  index:integer;
  load:boolean;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  application.Icon.LoadFromFile('main.ico'); 
  index:=0;
  load:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if isiconic(application.handle) then
   begin
     application.Icon.LoadFromFile(icons[index]);
     index:=(index+1) mod 10;
     load:=false;
   end
  else
   if not load then
     application.icon.loadfromfile('main.ico'); 
end;end.