vb添加系统右键菜单

如果好，我不吝啬财富值
就是用这句话
CreateObject("WSCRIPT.SHELL").Regwrite "HKEY_CLASSES_ROOT\.dat\shell\打开\command\", "d:\tools\hedit\HEdit.exe " & " %1", "REG_SZ"

通过读写注册表来修改系统右键菜单，我有一个问题，就是怎样装了一个右键菜单（如上所示为“打开”），然后在卸掉？要vb命令呀！

还有一个问题，高手能回答帮帮忙
我做了一个程序，名为“c:\1.exe”，其中有一个text1，我想让系统菜单中有一个菜单，名为
“用我的程序打开”，然后点击后自动用“c:\1.exe”打开并且将txt中的文本附到“c:\1.exe”的text1中
请问怎么弄呀？

答对再加50！满意100！！！

提供给你一个我的方法。
编辑注册表我没用过CreateObject这个函数。这个我很陌生。直接用shell 函数执行Reg命令我觉得更方便。shell “Reg DELETE “具体怎么用 打开cmd自己查一下。
第二个问题不太清楚，应该用command choose这个两个函数可以返回打开程序的参数。自己用个select case 判断一下参数中的文件可否打开。这个应该需要你在注册表加上文件路径。

请进行如下操作。 打开“菜单编辑器”，按常规方法添加菜单。例如： －－－－－－－－－－－ 菜单 (名称为mnupop) ....菜单1 (名称为mnupop1) ....菜单2 (名称为mnupop2) －－－－－－－－－－－ 把“标题”菜单的“可见”复选框去掉。 添加如下代码： private sub form_mousedown(button as integer, shift as integer, x as single, y as single) if button = vbkeyrbutton then popupmenu mnupop end sub 绝对没问题。