如何将“当前桌面位置”添加到桌面上下文菜单

如何将“当前桌面位置”添加到桌面上下文菜单

在 Windows 7 中,我使用了 Windows Club 的“右键单击扩展器”

它使用这个代码:

'Open Desktop Wallpaper File Location

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
strCurWP =""

On Error Resume Next
strCurWP = WshShell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Desktop\General\WallpaperSource")
On Error Goto 0

If Trim(strCurWP) = "" Then
    MsgBox "No Wallpaper selected for Desktop Slideshow"
Else
    If fso.FileExists(strCurWP) Then
        WshShell.run "explorer.exe" & " /select," & strCurWP
    Else
        MsgBox "Cannot find target for " & strCurWP
    End If
End If

'RIGHT-CLICK EXTENDER V2
'Created by: Lee Whittington (UntameDKreationZ) for The Windows Club

我的问题“Windows 8 中桌面壁纸的新注册表路径是什么?”

相关内容