无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站投放广告、加入VIP会员,请联系 微信:wuyouceo
查看: 10726|回复: 161
打印 上一主题 下一主题

[分享] 经典的文件右键菜单:复制为文件名/复制为文件地址

    [复制链接]
跳转到指定楼层
1#
发表于 2024-9-24 22:23:08 | 只看该作者 |只看大图 回帖奖励 |正序浏览 |阅读模式
本帖最后由 baby1277 于 2024-10-23 23:07 编辑

1:"复制为文件名"菜单 没有换行符(少数程序的输入框识别换行符,导致报错)

2:"复制为文件地址"菜单 没有带引号  (系统自带的那个菜单已经被下岗)

  1. @echo off
  2. title baby1277
  3. md C:\Windows\path
  4. echo for  /f "delims=" %%%%a in ('echo "%%name%%"') do set/p="%%%%~nxa"^<nul^|clip>C:\Windows\path\copyname.bat
  5. echo 添加复制为文件地址右键菜单
  6. reg delete "HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\CopyAsPathMenu" /f
  7. reg add "HKEY_CLASSES_ROOT\*\shell\copypath" /v "" /t REG_SZ /d "复制为文件地址(&P)" /f
  8. reg add "HKEY_CLASSES_ROOT\*\shell\copypath\command" /v "" /t REG_SZ /d "mshta vbscript:clipboarddata.setdata("text","%%1")(close)" /f
  9. reg add "HKEY_CLASSES_ROOT\*\shell\copyname" /v "" /t REG_SZ /d "复制为文件名(&N)" /f
  10. reg add "HKEY_CLASSES_ROOT\*\shell\copyname\command" /v "" /t REG_SZ /d "mshta vbscript:CreateObject("WScript.Shell").Run("cmd /c set name=%%1^&call C:\Windows\path\copyname.bat",0)(window.close)" /f
  11. cls&echo.
  12. echo 添加完成,1秒后退出。
  13. timeout /t 2 >nul
复制代码



右键菜单支持文件和文件夹,喜欢收藏起来吧。

游客,如果您要查看本帖隐藏内容请回复

评分

参与人数 1无忧币 +5 收起 理由
情深梦缘 + 5 赞一个!

查看全部评分

162#
发表于 4 天前 | 只看该作者
经典右键
回复

使用道具 举报

161#
发表于 4 天前 | 只看该作者
感谢分享
回复

使用道具 举报

160#
发表于 4 天前 | 只看该作者
学习
回复

使用道具 举报

159#
发表于 7 天前 | 只看该作者
收下了,这个实在方便,感谢分享!
回复

使用道具 举报

158#
发表于 7 天前 | 只看该作者
这好!有用!
回复

使用道具 举报

157#
发表于 7 天前 来自手机 | 只看该作者
谢谢分享
回复

使用道具 举报

156#
发表于 7 天前 | 只看该作者
谢谢分享
回复

使用道具 举报

155#
发表于 7 天前 来自手机 | 只看该作者
谢谢分享
回复

使用道具 举报

154#
发表于 2024-11-7 15:02:23 | 只看该作者
谢谢分享,自用
回复

使用道具 举报

153#
发表于 2024-11-7 13:00:40 | 只看该作者
本帖最后由 zst 于 2024-11-7 13:50 编辑

很好,只是没有图标,也没啥关系,功能正常


但是,桌面图标⇢右键,有图标


系统⇢Windows 10 专业版、22H2、19045.3031
回复

使用道具 举报

152#
发表于 2024-11-6 21:50:24 | 只看该作者
本帖中的几位大佬,真是了不得,太牛了,高手!!!
回复

使用道具 举报

151#
发表于 2024-11-6 17:38:33 | 只看该作者
看看好不好用,谢谢。
回复

使用道具 举报

150#
发表于 2024-11-6 14:29:47 | 只看该作者
baolizhu 发表于 2024-11-5 22:07
@Echo Off
Title Reg Converter v1.2 & Color 1A
cd %systemroot%\system32

大佬,你这个点击后会出现个powershell窗口, 速度略慢呀
回复

使用道具 举报

149#
发表于 2024-11-6 11:16:27 | 只看该作者
竟然可以这么做,谢谢教导!
回复

使用道具 举报

148#
发表于 2024-11-6 11:08:54 | 只看该作者
谢谢分享
回复

使用道具 举报

147#
发表于 2024-11-6 11:05:21 | 只看该作者
有没搞错这还要隐藏啊!!!!
回复

使用道具 举报

146#
发表于 2024-11-6 10:58:11 | 只看该作者
很实用,感谢分享。
回复

使用道具 举报

145#
发表于 2024-11-6 10:49:21 | 只看该作者
谢谢分享!
回复

使用道具 举报

144#
发表于 2024-11-6 10:36:35 | 只看该作者
虽说现在Windows11在右键已经加入了“复制文件地址”,但是并没有“复制文件名”功能,您分享的注册表正好弥补了这个问题
回复

使用道具 举报

143#
发表于 2024-11-5 22:24:57 | 只看该作者
谢谢大大分享
回复

使用道具 举报

142#
发表于 2024-11-5 22:12:35 | 只看该作者
有几个是自己瞎琢磨的
回复

使用道具 举报

141#
发表于 2024-11-5 22:07:12 | 只看该作者
@Echo Off
Title Reg Converter v1.2 & Color 1A
cd %systemroot%\system32
call :IsAdmin

REG ADD "HKCR\*\shell\Copy_Full_Path" /v "MUIVerb" /t REG_SZ /d "复制文件相关操作" /f
REG ADD "HKCR\*\shell\Copy_Full_Path" /v "Icon" /t REG_SZ /d "C:\Windows\system32\shell32.dll,4" /f
REG ADD "HKCR\*\shell\Copy_Full_Path" /v "Subcommands" /t REG_SZ /d "" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Copy as Path" /v "MUIVerb" /t REG_EXPAND_SZ /d "复制文件路径(带引号)" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Copy as Path" /v "Icon" /t REG_EXPAND_SZ /d "cmd.exe" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Copy as Path" /v "Position" /t REG_EXPAND_SZ /d "Center" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Copy as Path\Command" /ve /t REG_EXPAND_SZ /d "cmd.exe /c echo \"%%1\"|clip" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\CopyFile_Name" /v "Muiverb" /t REG_EXPAND_SZ /d "复制文件名" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\CopyFile_Name" /v "Icon" /t REG_EXPAND_SZ /d "powershell.exe" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\CopyFile_Name\Command" /ve /t REG_EXPAND_SZ /d "powershell.exe -NoProfile -ExecutionPolicy Bypass -Command \"Get-Item -LiteralPath '%%1' ^| Select-Object -ExpandProperty Name ^| Set-Clipboard\"" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\CopyFile_Name_NoExt" /v "Muiverb" /t REG_EXPAND_SZ /d "复制文件名(无扩展名)" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\CopyFile_Name_NoExt" /v "Icon" /t REG_EXPAND_SZ /d "powershell.exe" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\CopyFile_Name_NoExt\Command" /ve /t REG_EXPAND_SZ /d "powershell.exe -NoProfile -ExecutionPolicy Bypass -Command \"Get-Item -LiteralPath '%%l' ^| Select-Object -ExpandProperty BaseName ^| ForEach-Object { $_.TrimEnd('\') + $_.BaseName } ^| Set-Clipboard\"" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\copypath" /v "Icon" /t REG_EXPAND_SZ /d "%%SystemRoot%%\System32\WScript.exe,2" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\copypath" /v "MUIVerb" /t REG_SZ /d "复制文件路径(&P)" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\copypath\command" /ve /t REG_EXPAND_SZ /d "mshta vbscript:clipboarddata.setdata(\"text\",\"%%1\")(close)" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.copyaspatg" /v "MUIVerb" /t REG_EXPAND_SZ /d "复制文件路径(带引号)" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.copyaspatg" /v "Icon" /t REG_EXPAND_SZ /d "cmd.exe" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.copyaspatg" /v "Position" /t REG_EXPAND_SZ /d "Center" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.copyaspatg\Command" /ve /t REG_EXPAND_SZ /d "cmd.exe /c echo \"%%1\"^|clip" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.PermanentDelete" /v "MUIVerb" /t REG_EXPAND_SZ /d "@shell32.dll,-37394" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.PermanentDelete" /v "Icon" /t REG_EXPAND_SZ /d "shell32.dll,-240" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.PermanentDelete" /v "Position" /t REG_EXPAND_SZ /d "Center" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.PermanentDelete" /v "CommandStateSync" /t REG_EXPAND_SZ /d "" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.PermanentDelete" /v "ExplorerCommandHandler" /t REG_EXPAND_SZ /d "{E9571AB2-AD92-4ec6-8924-4E5AD33790F5}" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.selectall" /v "CanonicalName" /t REG_EXPAND_SZ /d "{b33bf5af-76d5-4d10-93e7-d8e22e93798f}" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.selectall" /v "CommandStateHandler" /t REG_EXPAND_SZ /d "{3756e7f5-e514-4776-a32b-eb24bc1efe7a}" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.selectall" /v "CommandStateSync" /t REG_EXPAND_SZ /d "" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.selectall" /v "Description" /t REG_EXPAND_SZ /d "@shell32.dll,-31277" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.selectall" /v "Icon" /t REG_EXPAND_SZ /d "imageres.dll,-5308" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.selectall" /v "ImpliedSelectionModel" /t REG_DWORD /d "32" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.selectall" /v "MUIVerb" /t REG_EXPAND_SZ /d "@shell32.dll,-31276" /f
REG ADD "HKCR\*\shell\Copy_Full_Path\shell\Windows.selectall\command" /v "DelegateExecute" /t REG_EXPAND_SZ /d "{aa28fbc7-59f1-4c42-9fd8-ba2be27ea319}" /f
REG ADD "HKCR\Directory\shell\Copy Path" /v "MUIVerb" /t REG_SZ /d "复制文件夹相关操作(&D)" /f
REG ADD "HKCR\Directory\shell\Copy Path" /v "Icon" /t REG_SZ /d "C:\Windows\system32\shell32.dll,4" /f
REG ADD "HKCR\Directory\shell\Copy Path" /v "Subcommands" /t REG_SZ /d "" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\Copy Directory Path" /v "MUIVerb" /t REG_SZ /d "复制文件夹路径(带引号)" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\Copy Directory Path" /v "Icon" /t REG_SZ /d "cmd.exe" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\Copy Directory Path" /v "Position" /t REG_SZ /d "Center" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\Copy Directory Path\Command" /ve /t REG_EXPAND_SZ /d "cmd.exe /c echo \"%%1\"|clip" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\copyDirectorypath" /v "MUIVerb" /t REG_SZ /d "复制文件夹路径(&P)" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\copyDirectorypath" /v "Icon" /t REG_EXPAND_SZ /d "%%SystemRoot%%\System32\WScript.exe,2" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\copyDirectorypath\command" /ve /t REG_EXPAND_SZ /d "mshta vbscript:clipboarddata.setdata(\"text\",\"%%1\")(close)" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\copyfilenamelisttoclip" /v "MUIVerb" /t REG_EXPAND_SZ /d "复制文件夹内所有文件完全路径到粘贴板(方便统计文件个数,有多少行就有多少个文件)" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\copyfilenamelisttoclip" /v "Icon" /t REG_EXPAND_SZ /d "cmd.exe" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\copyfilenamelisttoclip\Command" /ve /t REG_SZ /d "cmd.exe /c dir \"%%L\" /b /s^|clip" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\copyfilenametoclip" /v "MUIVerb" /t REG_EXPAND_SZ /d "复制文件夹内所有文件名到粘贴板" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\copyfilenametoclip" /v "Icon" /t REG_EXPAND_SZ /d "cmd.exe" /f
REG ADD "HKCR\Directory\shell\Copy Path\shell\copyfilenametoclip\Command" /ve /t REG_EXPAND_SZ /d "cmd.exe /c dir \"%%L\" /b /a:-d /o:n^|clip" /f
pause

:IsAdmin
Reg.exe query "HKU\S-1-5-19\Environment"
If Not %ERRORLEVEL% EQU 0 (
Cls & Echo You must have administrator rights to continue ...
Pause & Exit
)
Cls
goto:eof
回复

使用道具 举报

140#
发表于 2024-11-5 22:06:45 | 只看该作者
我也分享一个,
回复

使用道具 举报

139#
发表于 2024-11-5 22:02:51 | 只看该作者
谢谢楼主分享!!!!!!!!!
回复

使用道具 举报

138#
发表于 2024-11-5 20:56:50 | 只看该作者
这个不错 谢谢分享
回复

使用道具 举报

137#
发表于 2024-11-5 20:43:07 | 只看该作者
选中多个文件时会报错。能加个判断语句之类的吗?
回复

使用道具 举报

136#
发表于 2024-11-5 17:17:15 | 只看该作者
看看这个如何?
回复

使用道具 举报

135#
发表于 2024-11-5 11:21:38 | 只看该作者
谢谢分享!
回复

使用道具 举报

134#
发表于 2024-10-30 14:19:33 | 只看该作者
这个不错,谢谢分享
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-11-15 11:49

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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