关于WIN98中墙纸的设置问题(50分)

假如WIN98中墙纸的默认属性为"平铺",我想在DELPHI中改变WIN98的墙纸,
并将属性设置为"居中".但在运行时发现墙纸的属性仍然是"平铺",请问各
位问题出在哪里?下面是我写的代码:

procedure TForm1.Button4Click(Sender: TObject);
var
reg:treginifile;
begin
reg:=treginifile.create('control panel');
reg.writestring('desktop','centerwallpaper','1');
// 设为居中方式, CENTERWALLPAPER为1
reg.writestring('desktop','wallpaper','c:/windows/temp/tmp.bmp');
systemparametersinfo(spi_setdeskwallpaper,0,nil,spif_sendwininichange);
reg.free;
end;

和注册表的设置有关。
以前我也研究过，好像记得是Wallpaper下的两个键值共同起作用。

你写的完全正确

reg.writestring('desktop','centerwallpaper','1');
改为下面试试
reg.writestring('desktop','TileWallpaper','0');