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

Question

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

Answer 1

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

Answer 2

如果系统设置的是小字体，下面的函数将返回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;