//this code will come in handy to give the user notice that your application needs
//attention.
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
FL: TFlashWInfo;
begin
FL.cbSize := SizeOf(FW);
FL.hwnd := Application.Handle; //assigns the application handle to have windows
//flash the icon
FL.dwFlags := FLASHW_ALL + FLASHW_TIMERNOFG;
FL.uCount := 1;
FL.dwTimeout := 0;
FlashWindowEx(FL);//execute flash
end;