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 判断文本文件是否utf-8编码

Delphi 多重循环

Delphi字符串加密解密

Delphi 删除cookies及上网记录

Delphi 获取access中的表名

Delphi 获取当前光标处颜色的例子

Delphi d10.x 并行库ppl编程之 futures

Delphi xe 的 tdictionary

Delphi idhttp最简洁的修改和取得cookie例子

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



打赏

取消

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

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

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

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

评论

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