Hacer parpadear y dejar de hacerlo en la Barra de Tareas

[[gluglu]]

Hola !

No termino de conseguirlo ...

Tengo una aplicación con un TrayIcon minimizada. No aparece ni en la barra de tareas, ni tampoco en Alt+Tab. Para minimizarla utilizo :

Código Delphi [-]
Application.ShowMainForm := False;
Application.Minimize;
MiForm.Visible := False;
MiForm.Hide;
ShowWindow(Application.Handle, SW_HIDE);

Lleva incorporado un Timer con una activación automática que se produce con una determinada condición. Cuando se dá esa condición lo que pretendo es que se avise al usuario con su correspodiente recuadro en la barra de tareas, y que este aparezca parpadeando hasta que el usuario decida abrir dicha ventana.

Para restaurar la aplicación cuando se produce el evento correspondiente utilizo :

Código Delphi [-]
Application.Restore;
Application.ShowMainForm := True;
MiForm.Visible := True;
Timer1.Enabled := True;

teniendo en el Timer1 y su evento OnTimer :

Código Delphi [-]
procedure TMiForm.Timer1Timer(Sender: TObject);
begin
  FlashWindow(Application.Handle, True);
end;

En principio todo bien.

Lo que pasa es que no logro desactivar el Flash de la aplicación en la barra de tareas de manera lógica.

Pretendo que se quede intermitente hasta que el usuario seleccione la aplicación, bien mediante click con el ratón en la barra de tareas, o bien mediante Alt+Tab.

Lo que me pasa es que no sé en qué evento del Form, o de qué manera y donde, debo de desactivar la intermitencia.

Todos los eventos del Form, OnPaint, OnActivate, ... etc, se activan cuando ejecute Application.Restore por lo tanto entiendo que no me valen dichos eventos ya que no deseo traer tampoco la aplicación directamente a primer plano.

Cuando hago click sobre la barra de tareas, no se me activa tampoco ningún otro evento. O al menos, yo desconozco cual.

Tampoco puedo interceptar ningún mensaje de Restore u otro de la propia API del windows cuando el usuario hace click en la barra de tareas, ya que MiForm ya se encuentra Repintado y Redimensionado en segundo plano.

A ver si me podeis echar una mano e indicarme como hacer esto Mucas gracias por vuestros consejos.

[[gluglu]]

Pues mira por donde ... después de bastantes horas intentando encontrar el método adecuado, y una vez que me decido a postearlo aquí, encuentro la solución.

Consigo apagar el parpadeo en la barra de tareas de la siguiente manera :

Código Delphi [-]
procedure TMiForm.Timer1Timer(Sender: TObject);
var
  FWinfo: TFlashWInfo;
begin
  if GetForeGroundWindow() <> MiForm.Handle then
    FlashWindow(Application.Handle, True)
  else begin
    FWinfo.cbSize    := 20;
    FWinfo.hwnd      := Application.Handle;
    FWinfo.dwflags   := FLASHW_STOP;
    FWinfo.ucount    := 0;
    FWinfo.dwtimeout := 0;
    FlashWindowEx(FWinfo);
    Timer1.Enabled := False;
  end;
end;

Gracias a todos lo que pudieran haberse interesado en este hilo.