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 firedac连接oracle

Delphi 判断文件扩展名函数

Delphi tstringlist 用法详解

Delphi apihook createprocess

Delphi exec error 错误处理

Delphi跨平台的字符串代码标准

Delphi 拷贝edit编辑框中的内容

Delphi timage保存图片到stream及从stream中取图片

Delphi mailurlmaybeinvalid 检测邮箱地址有效性

Delphi中调用http xml

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

转载请注明出处：木庄网络博客 » Delphi实现电脑桌面壁纸更换