实际是改变WINDOWS注册表的设置<br>procedure Tform1.changewallpaper;//过程<br> var <br> reg:treginifile;<br> begin<br> reg:=treginifile.create('control panel');<br> reg.writestring('desktop','wallpaper','C:/setup.bmp');<br> reg.writestring('desktop','tilewallpaper','1');<br> reg.free;<br> systemparametersinfo(spi_setdeskwallpaper,0,nil,spif_sendwininichange);<br> end;
