Moin,
Vielleicht könnte man damit anfangen?
Das hat mir ChatGPT angeboten. Der Code liefert "Segoe UI" als Ergebnis zurück.
Delphi-Quellcode:
var
nonClientMetrics: TNonClientMetrics;
...
FillChar(nonClientMetrics, SizeOf(TNonClientMetrics), 0);
nonClientMetrics.cbSize := SizeOf(TNonClientMetrics);
if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(TNonClientMetrics), @nonClientMetrics, 0) then begin
WindowsDefaultFontName := nonClientMetrics.lfCaptionFont.lfFaceName;
end else begin
WindowsDefaultFontName := 'unknown';
end;