在程序中如何判断Windows状态？

Question

返回True为小字体，False为大字体Function ReadFonts: Boolean;
var DC: HDC;
begin
     DC:=GetDC(0);
     Result:=(GetDeviceCaps(DC, LOGPIXELSX)=96); 
     ReleaseDC(0, DC);
end;

Answer 1

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

Answer 2

naughtyboy(淘气男孩) ,你真好玩，也给你点分。