经典的文件右键菜单：复制为文件名/复制为文件地址

baby1277

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
    

复制代码

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

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

Sys32

谢谢大大分享

baolizhu

有几个是自己瞎琢磨的

baolizhu

@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

baolizhu

我也分享一个，

baolizhu

谢谢楼主分享！！！！！！！！！

cysky

这个不错 谢谢分享

季夏

选中多个文件时会报错。能加个判断语句之类的吗？

2012sdta1541

看看这个如何?

iAmethyst

谢谢分享！

nfans

这个不错，谢谢分享

vuthang12345

Thank you very much

2013Varg

谢谢分享

yy2012

感谢分享

wjgyz740526

vbs版的复制文件路径在选择多个文件的时候会报错

wjgyz740526

楼主辛苦了，谢谢楼主，感谢楼主分享，楼主好人一生平安！！！

xulinghai

谢谢分享，有时会用到

shiqiang

感谢分享。

bestyy

谢谢分享  收藏了

wang6610

好东东。。。。。。。

djkzj

楼主辛苦了，谢谢楼主，感谢楼主分享，楼主好人一生平安！！！

huqiu2

谢谢楼主分享

lucky323su

厉害。

mr8246

学习了

gsn0421

感谢分享！~~

2011ylq

下载收藏，谢谢分享

jackAqwq

66666666666666666666666666

wych12

baby1277 发表于 2024-10-24 21:07
你看下这个

@baby1277，感谢大神指导！！！

baby1277

wych12 发表于 2024-10-24 08:33
@baby1277，感谢大神分享成果！！！还想请教下，如何删除系统自带的右键菜单（指Windows11原生）？找不到 ...

你看下这个 ContextMenuManager.NET.4.0.zip (241.27 KB, 下载次数: 0)

2024-10-24 21:06 上传

点击文件名下载附件
下载积分: 无忧币 -2

季夏

谢谢分享