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