精华公布栏

发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标题: Delphi编程 -- 4.1 更改Windows95的墙纸
发信站: 哈工大紫丁香 (2000年09月01日15:03:34 星期五), 站内信件

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

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]