创建闪烁图标

摘　要：创建闪烁图标
　关键字：FlashWindow Application.Handle
　类　别：API 

    可以使用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;