创建闪烁图标

可以使用API函数FlashWindow:

var
  Flash : bool;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FlashWindow(Form1.Handle, Flash);
  FlashWindow(Application.Handle, Flash);
  Flash := not Flash;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Flash := False;
end;