System Delphi

  1. Home
  2. Delphi
  3. System
  4. Detect all fonts
Title: Detect all fonts
All fonts you may get by using Fonts property of TScreen class.
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Assign(Screen.Fonts);
end;