Vista: Systemschriftart ermitteln?

[ringli]

Öhm... und wie funktioniert das dann? Hast du vielleicht einen Codeschnipsel für mich?

[EDIT]
Der Tip mit SystemParametersInfo war goldrichtig. Nach ein wenig googlen habe ich das hier gefunden.

Der Code sieht also folgendermassen aus:

Delphi-Quellcode:

procedure GetSystemFont(aFont: TFont);
var
  ncMetrics: TNonClientMetrics;
begin
  Assert(Assigned(aFont));
  ncMetrics.cbSize := SizeOf(TNonClientMetrics);
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 
                       SizeOf(TNonClientMetrics),
                       @ncMetrics, 0);
  aFont.Handle := CreateFontIndirect(ncMetrics.lfMenuFont);
end;