如何将程序添加到右键菜单中,并能向程序传递路径，程序能够提取

[jys0305]

在网上搜到这些东西，不知道下面提到的%1代表什么，ParamStr(1) 函数在什么地方什么时候使用


问题如下：
1.如何将程序添加到右键菜单中。
2.如何使用加入菜单的程序打开（操作）选中的文件（文件夹），文件名参数的传递。
3.我的目的是按右键后选择该程序，后直接计算文件的内容，如同winrar一样。
4.希望给出个简短的例子。
谢谢大家

怎么？这个问题很难么？？？

--------------------------------------------------------------------------------
关于多种环境注册右键弹出事件的方法，请按照以下对应关系：\HKEY_CLASSES_ROOT\Folder\Shell 任意文件夹
\HKEY_CLASSES_ROOT\Directory\Shell 任意目录
\HKEY_CLASSES_ROOT\Drive\Shell 任意驱动器
\HKEY_CLASSES_ROOT\*\Shell 任意文件
新建一个主键，并在主键下添加一个特定主键(command)，修改command的键值指到你的应用程序。例如:
建立\HKEY_CLASSES_ROOT\Folder\Shell\AimTest，将在Folder上按下右键时出现"AimTest"菜单
建立\HKEY_CLASSES_ROOT\Folder\Shell\AimTest，并设定该主键的缺省值为"我的测试菜单"，则将在Folder上按下右键时出现"我的测试菜单"菜单钮。
建立\HKEY_CLASSES_ROOT\Folder\Shell\AimTest\command，并设定command"缺省"键值为"c:\tools\pse.exe" "%1"，则将以Folder名为第一参数启动pse.exe。

* 注意command键值的双引号不可缺省另外：\HKEY_CLASSES_ROOT\Folder\Shellex
\HKEY_CLASSES_ROOT\Directory\Shellex\HKEY_CLASSES_ROOT\Drive\Shellex
\HKEY_CLASSES_ROOT\*\Shellex可以按应用程序在Registroy中的注册ID调用。这样可以调用.DLL和钩子函数。
但建议按第一种方法调用应用程序，因为注册一个ID实在麻烦。如果你的应用程序支持DDE，你可以参考
\HKEY_CLASSES_ROOT\Directory\Shell\Find键的设定来进行DDE设置。

来源于葵花宝典

--------------------------------------------------------------------------------
Uses Registry


var
reg:TRegistry;

begin
reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_CLASSES_ROOT;
Reg.CreateKey('\txtfile\shell\用我的记事本打开(&C)\command');
If Reg.OpenKey('txtfile\shell\用我的记事本打开(&C)\command', true) then
Reg.WriteString('',Extractfilepath(Application.ExeName)+Extractfilename(Application.ExeName)+' "%1"');
finally
Reg.Free;
end;

--------------------------------------------------------------------------------
var
Reg:TRegistry;
Key1,Key2:String;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_CLASSES_ROOT;
Key1:='\icofile\Shell\用 PicView 浏览';
Key2:='\Jpegfile\Shell\用 PicView 浏览';
if Add_Del then //add_del 是说是否向注册表中添加信息的意思，
begin{Add}
Reg.OpenKey(Key1+'\Command',True);
Reg.WriteString('',Application.ExeName+' "%1"');//写上程序的地址
Reg.OpenKey(Key2+'\Command',True);
Reg.WriteString('',Application.ExeName+' "%1"');
end else
begin{Delete} //去掉文件关联
Reg.OpenKey(Key1+'\Command',True);
Reg.DeleteKey(Key1);
Reg.OpenKey(Key2+'\Command',True);
Reg.DeleteKey(Key2);
end;
Reg.CloseKey;
finally
Reg.Free;
end;

http://www.hongen.com/pc/pcketang/jiqiao/win98zcb/zhuce013.htm

http://tech.sina.com.cn/c/2002-01-16/8472.html

--------------------------------------------------------------------------------
好的，我的第2个问题：我是不知道如何在程序中处理（接收）参数“1％”
我在程序中如何才能得到这个参数呢？

--------------------------------------------------------------------------------
你在什么程序你接受参数“1％”

--------------------------------------------------------------------------------
命令行参数:ParamStr(1)

简单的对个别扩展名加入菜单命令如上就可以了
更进一步的功能须用到外壳扩展了

[jys0305]

我在HKEY_CLASSES_ROOT\*下建立了shell\我的测试项，然后建立了command子项，值为"D:\tools\jpgcompact.exe %1",右击任意文件能出现我的测试菜单，但是点击后并不打开程序，怎么回事，弹出个菜单说没有程序与之关联，让我到控制面板设置

[jys0305]

自己顶个

[kaikai_kk]

paramstr取启动的参数,比如,一般我们启动外部exe时,是这样
winexec('d:\1.exe',sw_shownormal);

但有些程序,要启动参数,那就是类似这样
winexec('d:\a.exe 1 3 5',sw_shownormal);

则在a的Create事件,用paramstr接收这些参数了
paramstr(1) 就是1
paramstr(2) 就是3
paramstr(3) 就是5

[我看见佛]

注册表中的%1为系统默认变量
%1 表示程序操作的文件

%2 表示系统默认的打印机

%3 表示资料扇区

%4 表示操作的Port 端口
------------------------------------------------------------------------
ParamStrhttp://apps.hi.baidu.com/share/detail/16669076有详细介绍

[jys0305]

程序操作的文件如果在程序中取这个参数是该文件的完整路径吗

[jys0305]

程序已经打开了，什么时候在哪使用ParamStr(1) 合适呢，能不能给个例子

[山东蓝鸟贵薪]

1％ 参数
ParamStr(1) 接口参数

[山东蓝鸟贵薪]

paramstr(1)='123' paramstr(2)='456' paramstr(3)='789'
用shellexecute的话可以在parameters参数位置输入值。不同的参数值之间用空格隔开
如 shellexecute(application.Handle,'open','project4.exe','123 456', 'e:\',SW_SHOW);
所以用paramstr可以在应用程序间进行数据传输。

[wzca]

应该在 FormCreate 事件里用吧

[麻浦区保安]

你需要在程序截获%1 也就是文件路径之前做一个打开动作！//获取右键打开传入参数
CString strcmd=AfxGetApp()->m_lpCmdLine;
//判断有无参数传入
if (strcmd!="")
{
//去掉获取路径的引号
strcmd.Replace(_T("\""),"");
openfrist(strcmd);
SetDlgItemText(IDC_EDIT_FILE_PATH,strcmd);
UpdateData(FALSE);

}
[Quote=引用 6 楼 的回复:]

我在HKEY_CLASSES_ROOT\*下建立了shell\我的测试项，然后建立了command子项，值为"D:\tools\jpgcompact.exe %1",右击任意文件能出现我的测试菜单，但是点击后并不打开程序，怎么回事，弹出个菜单说没有程序与之关联，让我到控制面板设置
[/Quote]