Cómo llamar a API en pb para obtener la configuración de fuentes del sistema
Cambiar (versión del sistema)
Caso "NT 5.1" - Windows XP
Caso "NT 5.0" - Windows 2000
Poner registro de consultas("HKEY_Current_Configuration\Software\Fonts\LogPixels")
dpi - esto es un DWORD
Poner charToNum(dpi) en dpi
Regresar falso si ppp = 96
Devuelve verdadero en caso contrario
Roto
Caso "NT 4.0" - Windows NT 4.0
poner consulta de registro( " HKEY _ LOCAL _ MACHINE \ Software \ Microsoft \ Windows
NT\CurrentVersion\FontDPI ") para convertir a ppp - este es un DWORD
Coloque charToNum(dpi) en ppp
Si ppp = 96, devuelve falso
De lo contrario, devuelve verdadero
Roto
Caso "Windows 4.90" - Windows ME
Caso "Windows 4.10" - Windows 98
Caso "Windows 4.0" - Windows 95
poner consulta registro(" HKEY _Current_Configuration\Display\Settings\DPILogicalX ") p>
Ingrese al Departamento de Noticias
Si ppp = 96, devuelva falso
De lo contrario, devuelva verdadero
Roto
Finalizar interruptor
Fin stsHasLargeFonts