delphi 获取系统字体列表

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

  System.SysUtils,Vcl.Forms;

  var

  I: Integer;

begin

  try

  for I := 0 to Screen.Fonts.Count - 1 do

    Writeln(Screen.Fonts[I]);

  readln;

    { TODO -oUser -cConsole Main : Insert code here }

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.