Font Name auslesen

[RWarnecke]

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.