如何把自己的应用程序加入到鼠标的右键菜单 各位同志:你们好!我想象安装winrar和winzip后那样,实现自己的应用程序加入到鼠标右键菜单,请提供思路。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在注册表HKEY_CLASSES_ROOT\*\Shell 添加你的应用程序就可以了,具体如下uses Registry;procedure TMainFrm.FormCreate(Sender: TObject);var reg: TRegistry;begin try reg := TRegistry.Create; try reg.RootKey := HKEY_CLASSES_ROOT; reg.OpenKey('*\Shell\Trc', true); { 写入注册表,'Trc'为标识, 可自行指定 } reg.WriteString('', 'Open with Trc'); { ‘Open...'为应用程序 在打开方式中显示的名称 } reg.CloseKey; { 关闭注册表项 } reg.OpenKey('*\Shell\Trc\Command', true); { 打开命令参数项,此项用 来保存命令行及参数 } reg.WriteString('', '"' + ParamStr(0) + '" "%1"'); { ParamStr(0) 命令行参数此处为可执行文件路径 } reg.CloseKey; finally reg.Free; end; except raise; end; { 打开文件 } if ParamCount >= 1 then { 直接运行时 ParamCount=0,用打开方式运行时 ParamCount=1 } begin MyOpenFile(ParamStr(1)); { ParamStr(1)命令行参数为待打开文件的路 径 ,MyOpenFile为自定义的打开文件过程} end;end; 楼上的只是指定了相应的文件类型的打开方式而把自己的程序以及图标等加入右键菜单,需要写Explorer的外壳扩展具体看看相关资料 同意MFC2001(拔剑茫然心四顾) ( 如何同步两个memo file not found"FR_Desgn.dcu"该怎么处理? 这个存储过程怎么了,输出怎么不对啊?高手看看? 请教各位大侠,COM+认证的问题 关于字段分割的问题 高分请叫MIDAS的一个问题 有广州的朋友吗,我需要找人写以下的程序,开个价吧,价低者得 Delphi + Oracle8i , 请问你是用了什么数据控件和Oracle 连接的? 关于Sender.free 的问题,急!! 使用SocketConnection1连接,客户端运行出错? 怎样让应用程序等待5秒后继续执行? [参考]随机生成迷宫
uses Registry;
procedure TMainFrm.FormCreate(Sender: TObject);
var
reg: TRegistry;
begin
try
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('*\Shell\Trc', true); { 写入注册表,'Trc'为标识,
可自行指定 }
reg.WriteString('', 'Open with Trc'); { ‘Open...'为应用程序
在打开方式中显示的名称 }
reg.CloseKey; { 关闭注册表项 }
reg.OpenKey('*\Shell\Trc\Command', true); { 打开命令参数项,此项用
来保存命令行及参数 }
reg.WriteString('', '"' + ParamStr(0) + '" "%1"'); { ParamStr(0)
命令行参数此处为可执行文件路径 }
reg.CloseKey;
finally
reg.Free;
end;
except
raise;
end; { 打开文件 }
if ParamCount >= 1 then { 直接运行时 ParamCount=0,用打开方式运行时
ParamCount=1 }
begin
MyOpenFile(ParamStr(1)); { ParamStr(1)命令行参数为待打开文件的路
径 ,MyOpenFile为自定义的打开文件过程}
end;
end;