XP中完美实现vista中快捷方式右键添加“打开文件位置”功能
2008-03-15 13:38
836 查看
将以下内容保存为 czmb.vbs 并复制到 c:/windows 目录下
Set OS = GetObject("winmgmts://./root/cimv2")
Set CF = OS.ExecQuery("Select * From Win32_ShortcutFile WHERE Name = '" & Replace(WScript.Arguments(0),"/","//") & "'")
Set WS = WScript.CreateObject("WScript.Shell")
For Each objFile in CF
WS.Run ("explorer /e,/select," & objFile.Target)
Next
将以下保存为 打开文件位置.inf
[version]
Signature=$CHICAGO$
[defaultinstall]
addreg=My.add.reg
[My.add.reg]
HKCR,lnkfile/shell/查找目标,,,"打开文件位置"
HKCR,lnkfile/shell/查找目标/command,,0x00020000,"%WINDir%/system32/WScript.exe c:/windows/czmb.vbs """%1""""
HKCR,lnkfile/shell/查找目标/ddeexec/Topic,,,"System"
右击 打开文件位置.inf ,选择安装,即可
右击任意一快捷方式即可看到 打开文件位置 选项。
Set OS = GetObject("winmgmts://./root/cimv2")
Set CF = OS.ExecQuery("Select * From Win32_ShortcutFile WHERE Name = '" & Replace(WScript.Arguments(0),"/","//") & "'")
Set WS = WScript.CreateObject("WScript.Shell")
For Each objFile in CF
WS.Run ("explorer /e,/select," & objFile.Target)
Next
将以下保存为 打开文件位置.inf
[version]
Signature=$CHICAGO$
[defaultinstall]
addreg=My.add.reg
[My.add.reg]
HKCR,lnkfile/shell/查找目标,,,"打开文件位置"
HKCR,lnkfile/shell/查找目标/command,,0x00020000,"%WINDir%/system32/WScript.exe c:/windows/czmb.vbs """%1""""
HKCR,lnkfile/shell/查找目标/ddeexec/Topic,,,"System"
右击 打开文件位置.inf ,选择安装,即可
右击任意一快捷方式即可看到 打开文件位置 选项。
相关文章推荐
- 实现文件右键“打开方式”菜单功能(查看系统这种功能对比实现)
- xp添加右键"打开文件所在位置"
- 为快捷方式文件(lnk文件)右键菜单添加“打开所在文件夹”
- 实现文件右键“打开方式”菜单功能(查看系统这种功能对比实现)(读注册表的方法)
- python实现应用程序在右键菜单中添加打开方式功能
- windows文件鼠标右键添加工具快捷方式
- Android中实现Launcher功能之一 ----- 添加快捷方式
- XP右键菜单添加“打开所在文件夹”功能
- Android中实现Launcher功能之一 ----- 添加快捷方式
- html中实现添加水印的功能 / 在jsp页面上直接打开PDF文件
- Ubuntu的右键菜单中添加“打开终端”快捷方式
- VS制作安装部署文件后,快捷方式属性中“打开文件位置”不可用
- 如何把UltraEDIT 添加到右键打开的快捷方式
- 利用注册表在右键添加VS15的快捷方式打开文件夹
- Android 实现文件打开方式可供选择功能
- android如何实现文件打开方式可供选择功能
- 右键添加 注册/反注册 dll及 ocx 文件快捷方式
- [ahk]右键菜单打开文件所在文件夹(快捷方式也适用)
- VS2010安装包制作 [桌面快捷图标 右键属性 打开文件位置]问题解决
- LINUX 添加右键打开终端快捷方式