1   
2   //this code will come in handy to give the user notice that your application needs 
3   //attention.
4   
5   procedure TForm1.Button1Click(Sender: TObject);
6   begin
7    timer1.Enabled:=true;
8   end;
9   
10  
11  procedure TForm1.Timer1Timer(Sender: TObject);
12  var
13    FL: TFlashWInfo;
14  begin
15    FL.cbSize := SizeOf(FW);
16    FL.hwnd := Application.Handle; //assigns the application handle to have windows 
17    //flash the icon
18    FL.dwFlags := FLASHW_ALL + FLASHW_TIMERNOFG;
19    FL.uCount := 1;
20    FL.dwTimeout := 0;
21    FlashWindowEx(FL);//execute flash
22  end;