Blikání ikony běžící aplikace na hlavním panelu v D XE2 – Delphi – Fórum – Programujte.com

Zdravim.

Jak to je s rozblikanim te ikony.

http://www.zive.cz/…default.aspx

begin
flashwindow(application.handle,true);
sleep(500);
flashwindow(application.handle,false);
end;

Toto vypada že je pro nižši verze delphi a mělo by to byt třeba v timeru.

V delphi XE2 stači dat flashwindow(application.handle,true) třeba do buttonu a blika to

V dalšim buttonu se da blikani vypnout flashwindow(application.handle,false);

Problem je ře když chci blikani vypnout a trefim se zrovna, když je ikona rozsvicena, tak blikani se vypne ale ikona furt sviti.

Jak zjistim zda sviti nebo ne.

http://msdn.microsoft.com/en-us/library/windows/desktop/ms679347(v=vs.85).aspx