%1 start "" mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit

::传输当前文件夹目录菜单
@reg delete HKEY_CLASSES_ROOT\Directory\shell\qrcp /f>nul 2>nul

::传输当前文件菜单
@reg delete HKEY_CLASSES_ROOT\*\shell\qrcp /f>nul 2>nul


::当前目录共享菜单
@reg  delete HKEY_CLASSES_ROOT\Directory\background\shell\qrcp /f>nul 2>nul

@echo 卸载已完成！可以直接删除该目录即可。
@echo 敲回车键退出该批处理文件。
@pause

