Mega Code Archive

 

Categories / Delphi / System

 

Flash your application icon on the taskbar

//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;