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

  • 主题发起人 主题发起人 peterluolaw
  • 开始时间 开始时间
P

peterluolaw

Unregistered / Unconfirmed
GUEST, unregistred user!
假如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');
 

Similar threads

后退
顶部