DBR Delphi-Ecke

// Hiermit kann man den Namen einer Schrift ermitteln, welche aktuell für einen
// Gerätekontext eingestellt ist:

// Getestet mit D4 unter WinME

function Schriftname(DC: HDC): string; 
var buf: array[0..100] of char; 
begin 
  GetTextFace(DC, 100, buf); 
  result := string(buf); 
end; 
 
// Beispiel: Schriftart vom Desktop anzeigen 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  showmessage(schriftname(getdc(0))); 
end;