Fuentes de letra del programa

[ecfisa]

Hola tarco35.

No sé si será lo que estas buscando, pero podrías obtener las fuentes usadas en los formularios de tus proyectos, escudriñando en los .dfm...

Código Delphi [-]
procedure GetFormsFonts(PrjPath: string; UsedFonts: TStrings);
const
  SEARCHED = 'Font.Name = ';
var
  SR: TSearchRec;
  TS: TStrings;
  SL: TStringList;
  s : string;
  i : Integer;
begin
  PrjPath := IncludeTrailingPathDelimiter(PrjPath);
  if FindFirst(PrjPath + '*.dfm', faArchive, SR) = 0 then
  begin
    SL := TStringList.Create;
    try
      repeat
        TS := TStringList.Create;
        try
          TS.LoadFromFile(PrjPath + SR.Name);
          for i := 0 to TS.Count-1 do
            if Pos(SEARCHED, TS[i]) <> 0 then
            begin
              s := Trim(TS[i]);
              s := Copy(s, Pos(SEARCHED, s) + Length(SEARCHED), MaxInt);
              s := StringReplace(s, '''', '', [rfReplaceAll]);
              SL.Add(s);
            end;
        finally
          TS.Free;
        end;
      until FindNext(SR) <> 0;
      FindClose(SR);
      SL.Sorted     := True;
      SL.Duplicates := dupIgnore;
      SL.Text       := SL.Text;
      UsedFonts.Assign(SL);
    finally
      SL.Free;
    end;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetFormsFonts('C:\Carpeta_Del_Proyecto', ListBox1.Items);
end;

Saludos