win7 如何保存桌面主题?

mdejtod 2010-07-16 08:19:10
RT,如何获取当前使用的桌面壁纸路径,如何把图片设为壁纸?
...全文
1568 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
SQLDebug_Fan 2010-07-19
  • 打赏
  • 举报
回复
应召接分
mdejtod 2010-07-19
  • 打赏
  • 举报
回复
分都没人来接啊..
df978 2010-07-17
  • 打赏
  • 举报
回复
[Quote=引用 5 楼 supertitan005 的回复:]
俺直白点,俺是来蹭分的,哈哈
[/Quote]

SuperTitan005 2010-07-16
  • 打赏
  • 举报
回复
俺直白点,俺是来蹭分的,哈哈
iqyely 2010-07-16
  • 打赏
  • 举报
回复
来学习下了。
SQLDebug_Fan 2010-07-16
  • 打赏
  • 举报
回复
mdejtod牛人,记下了。
mdejtod 2010-07-16
  • 打赏
  • 举报
回复
汗,都搞定了
当前桌面壁纸路径存放在注册表
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\General\WallpaperSource 下
设置的话,也是改注册表,

Var Reg:Tregistry;{Tregistry 对象在Registry 单元中声明,需用Uses令引用Registry单元}
Begin

Reg:=Tregistry.Create;
Reg.Rootkey:= Hkey_Current_User;
Reg.OpenKey('Control Panel\Desktop',False);
Reg.WriteString ('TileWallPaper','0');
Reg.WriteString('Wallpaper','G:\Image\74238.jpg');
Systemparametersinfo(SPI_SETDESKWallpaper,0,Nil,SPIF_SendChange;
Reg.CloseKey;
Reg.Free;

当是散分.......
gyk120 2010-07-16
  • 打赏
  • 举报
回复
记得以前是注册表的Control Panel\Desktop,不知道win7有没有什么变化
你可以尝试开一个regmon,然后更换壁纸,看看能不能在注册表里面截获什么有用的信息

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧