Unit Printers e Fortes Report

[cefantacini]

Tenho uma rotina que capta a lista de impressoras do windows...

    i : Integer;
    Device : array[0..255] of char;
    Driver : array[0..255] of char;
    Port : array[0..255] of char;
    hDeviceMode: THandle;
    SL : TStringList;
begin
  SL := TStringList.Create;
  SL.Clear;
  for i := 0 to Printer.Printers.Count-1 do
  begin
    Printer.PrinterIndex := i;
    Printer.GetPrinter( Device, Driver, Port, hDeviceMode );
    SL.Add( Trim( Device ) );
  end;

 

Já percebi que em projetos onde eu tenha essa rotina e use o fortes report - em alguma máquinas, não todas - o sistema fica insuportavelmente lerdo quando executa a rotina acima.

Se não usar o fortes report o problema não acontece e repetindo, quando acontece, não são em todas as maquinas que acontece.

Imagino que deva ser falta de alguma dll, se alguém tiver passado por problema semelhante e puder ajudar, agradeço!

[EMBarbosa]

Eu sugiro você usar um profiler ou medir o tempo de execução de cada linha para conseguir verificar onde exatamente dentro dessa rotina acontece a lentidão nessas máquinas.