Hacer parpadear y dejar de hacerlo en la Barra de Tareas

[[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.