Dateinamen von Schriftarten

[MCXSC]

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?

[Sliver]

hi

Jede Schriftart besitzt nicht gleich eine Datei, in der alles gespeichgert wird. Meistens besitzt jede noch eine für Fett, (Fett Kursiv) und Kursiv . Die Schriftarten werden im Windows Verzeichnis\Font gespeichert. In der Registry unter HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts sind alle Dateien mit Namen und Dateinamen aufgelistet. Am besten liest du diese Liste in dein Programm ein.

Gruss

Sliver