找回密码
 加入
搜索
查看: 2470|回复: 4

大家好,能否帮我解决一个路径的问题

[复制链接]
发表于 2009-8-13 17:44:12 | 显示全部楼层 |阅读模式
本帖最后由 LiYi1987 于 2009-8-13 18:05 编辑
;更换系统主题风格
Dircopy("MyTheme","%SystemRoot%\Resources\Themes\MyTheme")
ShellExecute('%SystemRoot%\Resources\Themes\MyTheme\MyTheme.msstyles')
Send("{Enter}");

;更换桌面背景图像
FileCopy("Wallpaper.bmp", "%SystemRoot%\Web\Wallpaper")
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "WallpaperStyle", "REG_SZ", "2")
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "TileWallpaper", "REG_SZ", "0")
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "Wallpaper", "REG_SZ", "%SystemRoot%\Web\Wallpaper\Wallpaper.bmp")
Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters")
以上的代码问题重点在文件和文件夹的复制上

在BAT中 %SystemRoot% 代表系统目录,而在 AutoIt 中的执行情况是:更换主题那段代码在当前目录下新建了一个 %SystemRoot% 目录把文件复制进去,而更换桌面背景的那段代码却没有复制任何文件。

我想问的问题是:
这个问题出现的原因是什么?如果我想复制东西到系统目录下,该怎么做呢?
我是新手,谢谢高手赐教!

评分

参与人数 1金钱 +10 收起 理由
kn007 + 10 问题解决,及时更改标题为《已解决》,下次 ...

查看全部评分

发表于 2009-8-13 17:50:32 | 显示全部楼层
;更换系统主题风格
Dircopy("MyTheme", @WindowsDir & "\Resources\Themes\MyTheme")
ShellExecute(@WindowsDir & '\Resources\Themes\MyTheme\MyTheme.msstyles')
Send("{Enter}");

;更换桌面背景图像
FileCopy("Wallpaper.bmp", @WindowsDir & "\Web\Wallpaper")
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "WallpaperStyle", "REG_SZ", "2")
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "TileWallpaper", "REG_SZ", "0")
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "Wallpaper", "REG_SZ", @WindowsDir & "\Web\Wallpaper\Wallpaper.bmp")
Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters")

评分

参与人数 1贡献 +2 收起 理由
lynfr8 + 2

查看全部评分

 楼主| 发表于 2009-8-13 18:04:41 | 显示全部楼层
2# afan


可以正常运行了,今天学到了一个非常有用的知识,谢谢 afan。
发表于 2009-8-14 00:07:44 | 显示全部楼层
补充,如果需要用到系统变量,请使用EnvGet。
发表于 2014-4-28 23:33:14 | 显示全部楼层
学习了 受益匪浅。。。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-30 01:43 , Processed in 0.078119 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表