Current location - Health Preservation Learning Network - Slimming men and women - How to call API in pb to get the font settings of the system
How to call API in pb to get the font settings of the system
Function stsHasLargeFonts

Switch (system version)

Case "NT 5. 1"-Windows XP

Case "NT 5.0”-Windows 2000

Put the query registry(" HKEY _ Current _ Configuration \ Software \ Font \ Log Pixel ") in the.

Dpi-this is a DWORD.

Put charToNum(dpi) into dpi.

If dpi = 96, false is returned.

Otherwise return true.

break

Case "NT 4.0”-Windows NT 4.0

put query registry(" HKEY _ LOCAL _ MACHINE \ Software \ Microsoft \ Windows

NT\CurrentVersion\FontDPI ") into dpi-this is a DWORD.

Put charToNum(dpi) into dpi.

If dpi = 96, false is returned.

Otherwise return true.

break

Case "Windows 4.90”-Windows ME

Case "Windows 4.10"-Windows 98

Case "Windows 4.0"-Windows 95

Put query registry(" HKEY _ Current _ Configuration \ Display \ Settings \DPILogicalX ")

Enter the news department

If dpi = 96, false is returned.

Otherwise return true.

break

End switch

End stsHasLargeFonts