Preguntar por el % aumento fuente

[Casimiro Noteví]

A ver si sirve:

Código Delphi [-]
uses
  Windows, Graphics;

function GetFontScalePercentage: Integer;
var
  DC: HDC;
  LogPixelsY: Integer;
begin
  // Obtiene el contexto del dispositivo de pantalla
  DC := GetDC(0);
  try
    // Obtiene la resolución vertical en píxeles por pulgada (PPP)
    LogPixelsY := GetDeviceCaps(DC, LOGPIXELSY);
  finally
    // Libera el contexto del dispositivo de pantalla
    ReleaseDC(0, DC);
  end;

  // Calcula el porcentaje de tamaño de las fuentes
  Result := MulDiv(LogPixelsY, 100, 96);
end;