我想把一个批处理加进鼠标右键菜单，怎么做？

Question

如题所述

Answer 1

我把一楼的帖子转上来，楼主给分的话就给
回答者： 09cdy - 十级 2009-12-6 11:19
别给我，呵呵！
=====================================
非一般的 快捷方式2008-12-27 14:40通常我们的快捷方式都是固定在某个目录下的
今天，就给大家推荐一下我这个
非一般的[快捷]-[方式]

本程序可以将任意文件[包括IE和任意网页]
以及任意文件夹添加到右键中
随时随地都能轻松打开你指定的文件(夹)

使用方法非常简单：
将要添加的文件或目录托进本批处理中
然后再按个0，就可以了。。

将以下代码保存在记事本中 另存为 任意名字.bat
操作成功后 在任意文件或文件夹上右击

@echo off& title 清风原创-欢迎转载
mode con cols=40 lines=10& color 9f
if "%~1"=="" (color 0e& echo=
echo 请将要操作的文件或目录托到该批处理中
echo=& ping /n 1 /w 3000 9.9.9.9>nul& exit)
echo 操作对象:& echo %~1
set wind1=%~nx1& echo=
echo 0-在右键中添加其快捷方式& echo 9-在右键中删除其快捷方式
echo=& set /p wind=请选择[0,9]:
echo %wind%| findstr /x "0 9">nul|| exit
if %wind%==0 (goto wind)else goto snow
:wind
color 0f
reg add "HKCR\*\shell\%wind1%\" /ve /d "%wind1%" /f >nul
mshta vbscript:createobject("wscript.shell").regwrite("HKCR\*\shell\%wind1%\command\","mshta vbscript:createobject(""wscript.shell"").run(""""""%~1"""""")(window.close)","REG_SZ")(window.close)
reg add "hkcr\directory\shell\%wind1%\" /ve /d "%wind1%" /f >nul
mshta vbscript:createobject("wscript.shell").regwrite("HKCR\directory\shell\%wind1%\command\","mshta vbscript:createobject(""wscript.shell"").run(""""""%~1"""""")(window.close)","REG_SZ")(window.close)
echo.& echo.>已成功添加& findstr /a:0b .* 已成功添加?& del=已成功添加
ping /n 1 /w 3000 9.9.9.9>nul
exit
:snow
color 0f
echo Y| reg delete "HKCR\*\shell\%wind1%\" /f>nul 2>nul|| set smile=wind
echo Y| reg delete "hkcr\directory\shell\%wind1%\" /f>nul 2>nul|| set smile=wind
if defined smile (set 清风=操作失败)else set 清风=已成功删除
echo.& echo.>%清风%& findstr /a:0c .* %清风%?& del=%清风%
ping /n 1 /w 3000 9.9.9.9>nul
exit

==============================================================================================================
//将任意文件[包括IE和任意网页]以及任意文件夹添加到右键中

Answer 2

我以前写过，改注册表就可以了

http://hi.baidu.com/%C7%E5%B7%E7_%C3%D4%CE%ED%C9%AD%C1%D6/blog/item/4941fad3029d3c33970a168e.html本回答被提问者采纳

Answer 3

要写入注册表