更改Windows95的墙纸
在Delphi中你可以很方便地更改墙纸，请参考以下的程序。
procedureChangeIt；
var
Reg：TregIniFile；
begin
Reg：ΚTRegIniFile．Create（′ControlPanel′）;
Reg．WriteString（′desktop′，′Wallpaper′，′c：ιpwin95ιforest．bmp′）；
Reg．WriteString（′desktop′，′TileWallpaper′，′1′）；
Reg．Free；
SystemParametersInfo（SPI—SETDESKWALLPAPER，0，nil，SPIF—SENDWININICHANGE）；
end；
|