Hallo!
Ich habe einen Code, mit dem man sich alle auf dem PC installierten Schriftarten anzeigen lassen kann.
Zur Erinnerung
Delphi-Quellcode:
var
FormSysFnt: TFormSysFnt;
procedure TFormSysFnt.FormCreate(Sender: TObject);
begin
ListBoxFonts.items:=screen.fonts;
LabelAusgabe.font.size := 12;
LabelAusgabe.caption:=memo1.text;
end;
Aber: Wie kann ich, wenn man eine Schriftart auswählt, deren Dateinamen erhalten?