Delphi实现电脑桌面壁纸更换


本文整理自网络,侵删。

 var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Control Panel\Desktop\',False); //打开键值
reg.WriteString('Wallpaper',Edit1.Text); //覆盖写入新的壁纸路径 注:壁纸文件只能是BMP格式,其它格式需要转换才行
reg.WriteString('WallpaperStyle','2'); //写入壁纸在屏幕的显示方式,0:平铺,1:居中,2:拉伸
reg.CloseKey;
reg.Free;
Systemparametersinfo(SPI_SETDESKWallpaper,0,Nil,SPIF_SendChange); //向Windows发送消息,通知Windows更换壁纸

//WinExec('cmd /c gpupdate /force /wait:0',SW_HIDE); //结果跟上一句代码相似,速度感觉慢一点儿

相关阅读 >>

Delphi获取两个字符之间的数

Delphi 让程序支持外来文件拖放的单元文件

Delphi 按esc快捷键退出程序的简单方法

Delphi 如何检查字符串是否为数字

Delphi中sendmessage给一个edit控件发送wm_settext消息

Delphi sccoloredid,星际争霸彩色 id 修改器 v0.2.0,支持 windows vista

Delphi开发firemonkey应用程序时无法打开窗体的解决

Delphi 如何从dll中检索导出函数的列表

Delphi'控件的相对坐标与屏幕坐标转换

Delphi 用firedac获取 sql server错误文本信息

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...