Delphi для всех

Сделать мигающим заголовок окна и кнопку на панели TaskBar

Чтобы пользователь обратил внимание на Вашу программу (если, например, она выдала какое-то предупреждение) , можно заставить мигать заголовок окна и кнопку программы на панели TaskBar.

var
Flash: boolean;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// Мигание заголовка окна
FlashWindow(Form1.Handle, Flash);
// Мигание заголовка на панели задач
FlashWindow(Application.Handle, Flash);
Flash := not Flash;
end;