请问，应该用哪个API函数来获取操作系统当前所使用的字体(大字体-120dpi, 小字体-96dpi)大小,用GetDeviceCaps(hdc,LOGPIXELSX)取到的只是

[wh1978]

请问，应该用哪个API函数来获取操作系统当前所使用的字体(大字体-120dpi, 小字体-96dpi)大小,用GetDeviceCaps(hdc,LOGPIXELSX)取到的只是屏幕分辨率并非字体大小。

[wh1978]

up

[hzb]

操作系统当前用的不止一种字体啊，菜单有字体，图标有字体，提示也有字体，你要什么字体？不过一般可以访问screen变量得到，关于screen变量请参考Tscreen的帮助。

[hzb]

操作系统当前用的不止一种字体啊，菜单有字体，图标有字体，提示也有字体，你要什么字体？不过一般可以访问screen变量得到，关于screen变量请参考Tscreen的帮助。

[caochsh]

如果系统设置的是小字体，下面的函数将返回true。

你可以用"Result := (GetDeviceCaps(DC, logpixelsx) = 120);"替代语句 "Result := (GetDeviceCaps(DC, logpixelsx) = 96);" 来测试大字体是否在使用。

Function UsesSmallFonts: boolean;
var
DC: HDC;
begin
DC := GetDC(0);
Result := (GetDeviceCaps(DC, logpixelsx) = 96);
ReleaseDC(0, DC);
end;