如何在pb中调用API获取系统的字体设置

开关(系统版本)

案例" NT 5.1" - Windows XP

案例“NT 5.0”-Windows 2000

将query registry(" HKEY _当前_配置\软件\字体\日志像素")放入

dpi -这是一个DWORD

将charToNum(dpi)放入dpi

如果dpi = 96，则返回false

否则返回真

破裂

案例“NT 4.0”-Windows NT 4.0

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

NT\CurrentVersion\FontDPI ")转换成dpi -这是一个DWORD

将charToNum(dpi)放入dpi

如果dpi = 96，则返回false

否则返回真

破裂

案例“Windows 4.90”-Windows ME

案例“Windows 4.10”-Windows 98

案例“视窗4.0”-视窗95

put query registry(" HKEY _当前_配置\显示\设置\DPILogicalX ")

进入新闻部

如果dpi = 96，则返回false

否则返回真

破裂

结束开关

结束stsHasLargeFonts