Vista: Systemschriftart ermitteln?

[Luckie]

Das muss aber nicht die Systemschrift sein. Der Benutzer kann diese ja nach belieben ändern in dem Dialog: Eigenschaften von Anzeige -> Darstellung -> Erweitert. Also so ganz ist das nicht die Lösung. Und warum hast du lfMenuFont genommen und nicht lfCaptionFont zum Beispiel?

Die standard Systemschrift ermittelt man mit

Delphi-Quellcode:

var
  FLogFont: TLogFont;
begin
  GetObject(GetStockObject(DEFAULT_GUI_FONT), sizeof(FLogFont), @FLogFont);

Das liefert "MS Shell Dlg" zurück, was dann bei XP "Tahoma" entspricht.