Ö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;