Delphi编程实现是否开启“平滑屏幕字体边缘“

在Windows高级设置中的视觉效果中可以设置是否开启“平滑屏幕字休边缘”，可以通过编程的方式来实现：

 

  if SystemParametersInfo(SPI_SETFONTSMOOTHING, 1, nil, SPIF_UPDATEINIFILE or SPIF_SENDCHANGE) then
  begin
    SHChangeNotify(SHCNE_ASSOCCHANGED,0,nil,nil);
  end;

 

SystemParametersInfo的第二个参数为1表示开启，0表示关闭。