客户要做一个如下功能:
1 在一般的文件上点击右键,在弹出的右键菜单里添加一项“加压到xxx.abc”像WinRar一样,
2 在扩展名为.abc的文件上占击右键,在弹出的右键菜单里添加一项“解压到xxx.txt”
3 点击“加压到xxx.abc”或“解压到xxx.txt”后关联运行我做的一个软件(WinAbc.exe),并传递相应的参数
(就好像WinRar一样) 以前没有看过这样的贴子,也搜索不到,只好用最后一绝招------以csdn上提问了
盼能给予解决,waiting...
1 在一般的文件上点击右键,在弹出的右键菜单里添加一项“加压到xxx.abc”像WinRar一样,
2 在扩展名为.abc的文件上占击右键,在弹出的右键菜单里添加一项“解压到xxx.txt”
3 点击“加压到xxx.abc”或“解压到xxx.txt”后关联运行我做的一个软件(WinAbc.exe),并传递相应的参数
(就好像WinRar一样) 以前没有看过这样的贴子,也搜索不到,只好用最后一绝招------以csdn上提问了
盼能给予解决,waiting...
http://article.pchome.net/2003/03/18/8251.htm
点击mnu1,判断Mid(mnu1.Caption,1,4),执行WinAbc.exe
Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnu1
End If
End Sub
那要怎么写呢,是在程序里面写,还是打包时的问题,如果是在程序里写那要怎么写,如果在打包时的问题,那又该怎么打(我用的是setupfactory)to sunnyfire()
你没有明白我的意思,不是在程序里点击右键,还是在windows窗口里
我上次删除WINrar的右键的时候就是这样的后来文件没有留
[HKEY_CLASSES_ROOT\Text.File]
@="Text File"[HKEY_CLASSES_ROOT\Text.File\shell][HKEY_CLASSES_ROOT\Text.File\shell\open][HKEY_CLASSES_ROOT\Text.File\shell\open\command]
@="\"C:\\Program Files\\HTML Help Workshop\\hhw.exe\" %1"
@="*.abc"
[HKEY_CLASSES_ROOT\*.abc\shell]
[HKEY_CLASSES_ROOT\*.abc\shell\open]
[HKEY_CLASSES_ROOT\*.abc\shell\open\command]
@="\"C:\\Program Files\\HTML Help Workshop\\hhw.exe\" %1"
比如我的自定义扩展名是:*.abc
这样对吗?这些是在打包里生成还是在程序里写?
谢谢了,希望能给出实倒代码
还有,请问一下,可执行程序怎么接受右键关联传来的信息呢,比如:
在111.abc上点击右键,选择“用WinAbc.exe”打开(假设已经关联好),winabc.exe怎么接受消息的呢,也就是说,怎么知道是在111.abc,而不是别的文件?
| Ooooo |
| ( ) |
| ) / |
| (_/ |
|一步一个脚印,努力学习,努力工作!
| Ooooo |
| ( ) |
| ) / |
| (_/ |
|一步一个脚印,努力学习,努力工作!
Dim CommandString As String
'Command()就是你的输入参数
CommandString = Command()
'在下面的程序中就对CommandString作处理
End Sub
| Ooooo |
| ( ) |
| ) / |
| (_/ |
|一步一个脚印,努力学习,努力工作!
新建键:HKEY_CLASSES_ROOT\.abc\ShellNew
然后建data键值。二进制型。
然后我就不知道了。
在html中可以用vbs:
<script language="VBScript">Sub OnContextMenu()
On Error Resume Next
set nc=CreateObject("NetGallery.GetPage")
call Nc.GetWebPage(external.menuArguments.document)end subCall OnContextMenu()
</script>生成dll可以用vb建立一个dll工程,只需简单的加一个函数:
Public Sub GetWebPage(ByRef i_vWebPage As HTMLDocument)
即可。工程要引用microsoft html object library。
传进来的是一个HTMLDocument,怎么操作都可以了