игающая кнопка в таскбаре

Здравствуйте!
Как заставить мигать кнопку моего приложения в таскбаре?
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Прив!
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;
Delphi - Советы программистов. Изд Симбо С-Питербург 2003 г.
С уважением monah
e-mail : janal***@n*****.ru
сайт : http:\\janalex.narod.ru
--
Номер выпуска : 2670
Возраст листа : 183 (дней)
Количество подписчиков : 377
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/109797
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru