Ver Mensaje Individual
  #2  
Antiguo 03-10-2007
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Reputación: 23
gluglu Va por buen camino
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.
__________________
Piensa siempre en positivo !
Responder Con Cita