CrLf

"%1" 改 %* 试试
sendto 可以用 %* 取得右键发送至的所有文件名，但 HKEY_CLASSES_ROOT\*\shell\ 未测试是否可行

CrLf

回复 4# zhanglei1371


vbs 怎么会连成一行？本机测试无误啊

CrLf

回复 6# zhanglei1371


    我知道了，把 vbcrlf 改成 """&vbcrlf&"""
    至于 CopyPathExt 这款软件，它是注册了 CopyPathExt.CopyPathExt 组件实现的，所以光修改注册表实现不了它的功能

CrLf

建议用 vbs，非要用 bat 的话，mshta 那句改写如下：

mshta vbscript:clipboardData.SetData("text",CreateObject("Wscript.Shell").ExpandEnvironmentStrings("%%s%%"))(close)
复制代码

CrLf

因为你的 hc 是换行符，显示在 notepad 里就是黑框，前缀个回车符就好了，把 set hc 那句改成：

for /f %%a in ('copy /z %0 nul') do set hc=%%a^


rem hc=回车换行
复制代码