Fórum Alerta no prog. minimizado #190527

procedure FlashWnd(Wnd: HWND; Count: Integer; StopNow: Boolean);
var
  Flash: TFlashWInfo;
begin
  with Flash do
  begin
    cbSize := SizeOf(Flash);
    hwnd := Wnd;
    if StopNow then
      dwFlags := FLASHW_STOP
    else
    begin
      if Count = 0 then
        dwFlags := FLASHW_ALL or FLASHW_TIMERNOFG
      else
        dwFlags := FLASHW_ALL;
    end;
    uCount := Count;
    dwTimeout := 0;
    FlashWindowEx(Flash);
  end;
end;