更改桌面墙纸 (2001年4月8日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 25 行

更改桌面墙纸 (2001年4月8日) 

网友更新  分类:数据库   作者: winfit(推荐)  推荐:winfit   阅读次数:160  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
通过修改注册表，可以动态改变桌面墙纸及其显示方式（平铺还是居中）： 

Reg.OpenKey(′Control Panel\Desktop′,False);{打开Control Panel下的Desktop键} 

Reg.WriteString(′Wallpaper′,′C:\Windows\Bubbles.Bmp′);{指定位图} 

Reg.WriteString(′TileWallpaper′,′1′);{设置平铺方式} 

Reg.CloseKey;{关闭键，Reg为Tregistry类型} 

SystemParametersInfo(SPISETDESKWALLPAPER,0,nil,SPIF—SENDWININICHANGE) 

{更新用户配置文件并刷新桌面} 
 
 


--------------------------------------------------------------------------------