能否在程序中获得和设置“Windows 屏幕字体边缘平滑”的属性 (100分)

在 “控制面板-&gt;显示属性” 中的有一项可以使 “字体边缘平滑” 的设置。<br>能否在程序中获得这一设置，能否在程序中设置此项，并立即生效？

先用程序将这个键值改为2<br>[HKEY_CURRENT_USER/Control Panel/Desktop]<br>"FontSmoothing"="0"<br><br>再用SystemParametersInfo(SPI_GETFONTSMOOTHING, 0, nil, SPIF_SENDCHANGE);<br>通知系统使更改生效。

原来 yygw 大侠早有指示：设置完成后要刷新显示才行。<br>(这次忘记先查离线包。以此为戒，下不为例。)<br>---------------------------------------------------------------------------<br>来自：yygw 时间：2001-10-17 20:40:00 ID:678380 <br><br>//取平滑设置<br>function GetFontSmoothing: Boolean;<br>var<br>&nbsp; IsSmoothing: LongBool;<br>begin<br>&nbsp; SystemParametersInfo(SPI_GETFONTSMOOTHING, 0, @IsSmoothing, 0);<br>&nbsp; Result := IsSmoothing;<br>end;<br><br>//置平滑设置<br>procedure SetFontSmoothing(Smoothing: Boolean);<br>var<br>&nbsp; IsSmoothing: LongBool;<br>begin<br>&nbsp; IsSmoothing := Smoothing;<br>&nbsp; SystemParametersInfo(SPI_SETFONTSMOOTHING, Cardinal(IsSmoothing), nil, SPIF_SENDCHANGE);<br>end;<br><br>注：在设置后，应刷新显示重绘文本。

呵呵，我也是乱答，意思差不多就行了[]