SystemFont auslesen...

[TimonWorld]

Hallo!

Weiß jemand, wie ich die Standard-Font von Windows auslese???

Delphi-Quellcode:

function GetSystemFont: TFont;
var SysFont: TFontM
begin
  with SysFont do begin
    create;
    size := 10;
    color := clWindowText;
    style := [];
    name := {?! System-Font !?} ;
  end;
  result := f
  SysFont.Free;
end;