How to detect if a system is set to Large Font

Problem/Question/Abstract:

How to detect if a system is set to Large Font

Answer:

Returns True if small fonts are set, False if using Large Fonts:

function SmallFonts: boolean;
var
  DC: HDC;
begin
  DC := GetDC(0);
  {LOGPIXELSX will be 120, if large fonts are in use}
  result := (GetDeviceCaps(DC, LOGPIXELSX) = 96);
  ReleaseDC(0, DC);
end;