Man kann das ganze so machen :
Delphi-Quellcode:
function fontnamenoread(var lp: TEnumLogFont; var tm: TNewTextMetric; dwType: DWORD; lpData: lParam): Integer; stdcall;
begin
Result := 1;
with TForm1(lpData), font_name_no_read do
begin
Items.Add(lp.elfLogFont.lfFaceName);
end;
end;
// So wird die Funktion aufgerufen
EnumFontFamilies(Canvas.Handle, nil, @fontnamenoread, Integer(Self));
So werden alle installieren Schriftarten in eine Combobox eingelesen und stehen dann zur Auswahl.