[注册表类] 右键添加-复制路径———菜单位置影响复制结果的问题

@echo off
for /f "tokens=2 delims=[" %%i in ('ver')do for /f "tokens=2,3 delims=. " %%j in ("%%i")do if %%j LSS 10 (set x=156)else set x=-5302
reg add "HKCR\*\shell\copypath" /f /ve /t REG_SZ /d "复制文件路径"&reg add "HKCR\*\shell\copypath" /f /v "Icon" /t REG_SZ /d "imageres.dll,%x%"&reg add "HKCR\*\shell\copypath\command" /f /ve /t REG_SZ /d "mshta vbscript:clipboarddata.setdata(\"text\",\"%%1\")(close)"&reg add "HKCR\*\shell\copypath" /f /v "Position" /t REG_SZ /d "bottom"
reg add "HKCR\Directory\shell\copypath" /f /ve /t REG_SZ /d "复制文件夹路径"&reg add "HKCR\Directory\shell\copypath" /f /v "Icon" /t REG_SZ /d "imageres.dll,%x%"&reg add "HKCR\Directory\shell\copypath\command" /f /ve /t REG_SZ /d "mshta vbscript:clipboarddata.setdata(\"text\",\"%%1\")(close)"&reg add "HKCR\Directory\shell\copypath" /f /v "Position" /t REG_SZ /d "bottom"
pause
复制代码

::另存为ANSI编码bat脚本运行 否则乱码 再次运行即可删除该右键
@Echo off&title 右键复制文件路径&for /f "tokens=2 delims=[" %%i in ('ver')do for /f "tokens=2,3 delims=. " %%j in ("%%i")do if %%j LSS 10 (set x=156)else set x=-5302
reg query "HKCR\AllFilesystemObjects\shell\复制文件路径(&A)">nul 2>nul&&(reg delete "HKCR\AllFilesystemObjects\shell\复制文件路径(&A)" /f>nul&echo 卸除完毕!&pause&exit)||(reg add "HKCR\AllFilesystemObjects\shell\复制文件路径(&A)" /v "icon" /t REG_SZ /d "imageres.dll,%x%" /f&reg add "HKCR\AllFilesystemObjects\shell\复制文件路径(&A)\command" /ve /t REG_SZ /d "cmd /c echo \"%%1\"<nul|clip" /f&echo 安装完毕!&pause&exit)
复制代码