Reg.exe add "HKLM\SOFTWARE\Classes*\shell\CopyFileName" /ve /t REG_SZ /d "复制文件名（不含扩展名）" /f >nul 2>&1
%KICO% Reg.exe add "HKLM\SOFTWARE\Classes*\shell\CopyFileName" /v "icon" /t REG_SZ /d "%%SystemRoot%%\System32\imageres.dll,-5304" /f >nul 2>&1
Reg.exe add "HKLM\SOFTWARE\Classes*\shell\CopyFileName\command" /ve /t REG_EXPAND_SZ /d "%%SystemRoot%%\System32\mshta.exe vbscript:Execute("fns=Split(""%%1"",""\""):fn=fns(UBound(fns)):pos=InStrRev(fn,"".""):If pos Then fn=Left(fn,pos-1):clipboardData.SetData ""text"",fn")(window.close)" /f >nul 2>&1
晚上好，雨晨，
我监测到多位 Insider 报告了 “mshta 工作不正常”，稍后将通报至 Microsoft 工程团队。不保证此问题能得到修复，因为 Microsoft 可能任由老旧组件 “自生自灭”，而不专门解决。
谢谢！😀
顺颂 时祺
- Ling Gao
2021 Windows Insider 最有价值专家 (MVP)，
2025 Microsoft Community Contributor & Advocate，
Microsoft Management 社区冠军，Windows 商业 & 云冠军