以下实现右键选择.txt文件时,会在弹出菜单中出现”open with mysoft",点后会打开你的程序。uses Registryprocedure TForm1.XXXXXXX;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.Open('txtfile\shell\open with mysoft\command', true);
reg.WriteString('', Application.ExeName + ' %1');
reg.CloseKey;
finally
reg.Free;
end;
end;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.Open('txtfile\shell\open with mysoft\command', true);
reg.WriteString('', Application.ExeName + ' %1');
reg.CloseKey;
finally
reg.Free;
end;
end;
解决方案 »
- 同一mdi子窗体没关闭,多次打开,每次窗体的名称不同
- delphi listView vrlist 方式如何加入垂直滚动条?
- CAD DXF12 文件如何加入其他文件!
- 内存释放错误的问题
- 怎样捕获因字段输入不符EditMask而产生的错误:Invalid input value,use escape key to abandon changes
- InputBox的返回值是什么?
- Delphi中怎样彻底删除DBF数据
- 请教
- 馠Ó̟�竆̟
- TBatchMove?
- 如何在引用方式下使用NIL做实参?
- 关于DBGrid的问题,请教……
1.HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Extensions\CmdMapping(以下简称BB)下看看各个增加的键值,最有用的是NextID(便于编程时决定你的程序的CLSID加在什么地方)。可以将你的程序的CLSID作为键名,键值为原来NextID的值,然后将NextID的值加一。
2.在HKKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions处增加一个项目,名字为你的程序的CLSID,他拥有的子键为(全部为字符串型)
ButtonText:按钮的文字标签。如果你设置IE的工具栏没有文字标签时,这些文字将作为工具提示(就是当鼠标移动到按钮上并停留一段时间时出现的小黄条)。
CLSID:必须为{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}。这是IE工具条的CLSID。
Default Visible:安装时是否可见。 Exec:要执行的文件。(EXE格式)
或者
ClsidExtension:加入的插件DLL注册的ID。 HotIcon:当鼠标移动到按钮上时显示的图标。
Icon:普通状态下的图标。
MenuText:在IE的“工具”菜单中显示的菜单项。可以使用&符号指定快捷键。
MenuStatusBar:当鼠标移动到该菜单项上时,在IE的状态栏上显示的文字。说明:可以用CLSIDExtension去指定自己为IE写的扩展DLL,即“插件”如Flash插件。此时就不要指定Exec选项。同时也不要使用Menu的选项。 CLSID就是类的ID,系统根据这个来区分不同的COM对象。