应eech要求做的，跟踪注册表不成功，只有转用快捷键方式了。
晕，eech居然爱好装完系统后精简掉(删)"显示桌面.SCF"，^_^
下面改为自动生成.SCF
[ Last edited by baomaboy on 2008-3-24 at 10:19 PM ]
晕，eech居然爱好装完系统后精简掉(删)"显示桌面.SCF"，^_^
以前写过一个管理快捷方式的小程序正好附带了修复显示桌面.SCF的功能：
新建快捷方式到任意处→VBS版
如果你误删除了快速启动栏的“显示桌面”，发送到中的“我的文档”、“邮件接收者”、“桌面快捷方式”，用此程序都可以修复。
下面改为自动生成.SCF
'''DisktopIcon_AutoArrange.VBS by baomaboy
Dim WshSHell,FSO
On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OF = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(1),"ShowDisktop.SCF"),2,True)
OF.Write(""&vbcrlf&"Command=2"&vbcrlf&"IconFile=explorer.exe,3"&vbcrlf&""&vbcrlf&"command=ToggleDesktop")
OF.Close
if (WshShell.CurrentDirectory = WshShell.SpecialFolders("Desktop")) = "False" then
WshSHell.Run("ShowDisktop.SCF")
end if
WScript.Sleep 500
WshSHell.SendKeys "{F5}+{F10}e"
WshSHell.SendKeys "+{F10}IA"
Set WshSHell = Nothing
Set FSO = Nothing
WScript.Quit
[ Last edited by baomaboy on 2008-3-24 at 10:19 PM ]
