如何通过程序 “圆整屏幕字体边角”(200分)

如下代码在WIN2K+delphi6上测试成功。
procedure TForm1.Button1Click(Sender: TObject);
var
bDisabled:Cardinal;
begin
bDisabled:=1;//注：bDisabled=1时为打上勾，为0时是去掉勾
SystemParametersInfo(SPI_SETFONTSMOOTHING,bDisabled,nil,SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE);
end;

HKEY_CURRENT_USER/Control Panel/Desktop中的FontSmoothing属性，
0-不平滑，2-平滑，至少2000下是这样的，Xp需要自己看

多谢了，各位，接分