const HKEY_CURRENT_USER = &H80000001
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”)
Set colProcessList = objWMIService.ExecQuery _
(“Select * from Win32_Process Where Name = ‘explorer.exe'”)
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Set objRegistry=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” &_
strComputer & “\root\default:StdRegProv”)
strKeyPath1 = “Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags”
strKeyPath2 = “Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\BagMRU”
strKeyPath3 = “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults”
DeleteSubkeys HKEY_CURRENT_USER, strKeypath1
DeleteSubkeys HKEY_CURRENT_USER, strKeypath2
DeleteSubkeys HKEY_CURRENT_USER, strKeypath3
Sub DeleteSubkeys(HKEY_CURRENT_USER, strKeyPath)
objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys
If IsArray(arrSubkeys) Then
For Each strSubkey In arrSubkeys
DeleteSubkeys HKEY_CURRENT_USER, strKeyPath & “\” & strSubkey
Next
End If
objRegistry.DeleteKey HKEY_CURRENT_USER, strKeyPath
End Sub
头一次沙发，下载试一试
之前用过，貌似没效果。谁来试试
那是因为代码错了，用此软件后会在目的文件夹下生成一个desktop.ini文件，你用文本打开desktop.ini文件，将代码改为：
[AveFolder]
IconArea_Image=D:\图片名字.jpg
[Folder Set]
Vision=2.002Build0105
Builder=ThenLong
Type=FreeSoft
[.ShellClassInfo]
IconResource=D:\星星图标.ico,0
以上两个地址根据需要你自己改吧。其他文件夹的话直接拷贝desktop.ini就好了
具体点的使用过后图标演示有没有？
Mark一下，这个貌似不错，回家试试~
修改desktop.ini就可以做到了~
@Sandox, 怎么弄得？？
求壁纸~~~
mark
能解决win7和XP的共享问题 立马换WIN7
就可以简单哈
将下面代码保存为desktop.ini文件（加上 系统，只读，隐藏属性），在加上一张super.jpg（背景图片）就可以了。
[ExtShellFolderViews]
[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
IconArea_Image=super.jpg
这个没有效果，用了之后，背景一片漆黑
楼上古董了吧……
你说的是xp时代的事了
哥来解释下吧
win7要想更换文件夹背景是很麻烦的事的
这个软件可以做到对不同的文件夹更换不同的背景
但一个大问题就是改完后文件夹视图中失去了平铺一项，要么列表，要么图标。对于习惯了平铺视图的人来说太难受了
win7的文件夹背景和xp原理是不一样的，实际上是由系统目录下一个ExplorerFrame.dll文件控制的，每种视图都对应一个固定的背景的，而不是xp下每个文件夹都可以随心所欲的换不同的背景 要想在win7下完美更换背景，就用工具对这个文件里控制视图背景的项目进行替换啦 具体的项目位置和方法可以在网上搜， 你可以选择几种常用的视图将其默认的空白图片替换为自己喜欢的图案！但我记着总大小好像是不能超过256K 总之 替换完之后，可以实现所有的文件夹只要处在同一个视图下 ，就共用一个背景 例如平铺的是一个背景 图标的是另一个背景 实际上我觉得这比xp来的省事，毕竟没谁有精力把自己每个文件夹都弄不同的图片做背景的
我记得我美化的时候用的是Win7 Style Builder
实际上Restorator的都可以的 有兴趣的自己搜索下吧
改完背景后，视图模式平铺成了扩展的平铺，又没有改回来的好点的办法！唉！
按10楼的方法的话，就不会出现扩展的平铺这个问题
当然会相对麻烦点
我从dbank上下的，McAfee报是木马？！
悲剧了，觉得效果不佳想Unistall，结果平铺选项没了，怎么办？
装完之后觉得不爽的平铺控们请注意了，卸载了之后依然恢复不了平铺选项，把下面这段代码保存为vbs文件执行就可以了。
const HKEY_CURRENT_USER = &H80000001
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”)
Set colProcessList = objWMIService.ExecQuery _
(“Select * from Win32_Process Where Name = ‘explorer.exe'”)
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Set objRegistry=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” &_
strComputer & “\root\default:StdRegProv”)
strKeyPath1 = “Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags”
strKeyPath2 = “Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\BagMRU”
strKeyPath3 = “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults”
DeleteSubkeys HKEY_CURRENT_USER, strKeypath1
DeleteSubkeys HKEY_CURRENT_USER, strKeypath2
DeleteSubkeys HKEY_CURRENT_USER, strKeypath3
Sub DeleteSubkeys(HKEY_CURRENT_USER, strKeyPath)
objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys
If IsArray(arrSubkeys) Then
For Each strSubkey In arrSubkeys
DeleteSubkeys HKEY_CURRENT_USER, strKeyPath & “\” & strSubkey
Next
End If
objRegistry.DeleteKey HKEY_CURRENT_USER, strKeyPath
End Sub
win7修改文件夹背景不是用什么desktop.ini就能搞定的。。。。
windows XP 可以很简单的设置文件夹背景更换，但micosoft 对windows7系统的文件夹预设的读取方式作了更改，所以用以前的更改winXP的方法来硬套win7身上是不行的，有个ThemeFolder软件可以更改，但改软件缺点很多，且操作很麻烦。所以本人还是选择另一个软件。有个国外有人开发了Windows 7 Folder Background Changer软件，这个软件可以实现windows7系统文件夹背景更换，但缺点是，该软件第一次打开会对注册表注入一些值，从而导致系统所有文件的查看方式都是“扩展的平铺” 很多人不能接受这种查看方式，本人也不能接受这样的瑕疵，但要实现既要有平铺查看又要更换背景，本人研究了几天，鉴于网上目前还没有人站出来为此做出一些突破。写了此日志友也可以借鉴并继续研究获得实质突破。
在没有打开Windows 7 Folder Background Changer软件之前，系统的查看方式是有平铺的，但打开之后，平铺查看方式就换了 扩展的平铺了。
打开Windows 7 Folder Background Changer后，该软件会复制到c:\windows\system32\下一些动态链接库文件，也就是他的程序文件，这样explorer启动后会加载他的链接库文件，从而实现预读各文件夹下的desktop.ini里的配置信息。他复制了什么文件我们不要管，我们的目标是 注册表：
他会对HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell 和HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\ 注入新值和新键。
至于网上流行的 把查看方式改回平铺的VB脚本，我也用过，并自信分析了下，这个脚本就是对HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags和HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\BagMRU和HKEY_CURRENT_USER\Software\Classes\Local Settings\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults”的子键（注意是子键不是此路径）直接删除，这样的话当然可以实现文件夹回复原样，因为Windows 7 Folder Background Changer注入的新值就这几处，当然本人研究了几天发现，真正起作用的是HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags这个项，也就是说出现扩展的平铺后，只要把这个项删除了，Windows 7 Folder Background Changer访问不到其预设的注册表值，就会恢复到平铺了。但是删除后，又不能实现文件夹背景了，所以必须在这上面下刀。
先介绍下HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags这个项：
该项保存了系统各已经打开过的文件夹配置信息。Bags 项下会有很多从数字命名的子键，这些数字对应的就是已经访问过的文件夹，这些键的子键下的值就对应这些文件夹的配置信息。
具体请看http://user.qzone.qq.com/365965114/blog/1303972572
http://hi.baidu.com/insomniashu/blog/item/6ef13181881703a96c8119fd.html
星星图标是神马？