问个文件关联的有关问题

问个文件关联的问题
比如我想在浏览器右键菜单中关联.PAS文件，但是又不想变成默认的打开程序（因为默认是delphi打开），用程序如何做呢？

如右键菜单项为：

Open                                     <-   默认的delphi打开
用XXX打开.....                 <-   我的程序
........

------解决方案--------------------
属性-> 选择打开方式-> 始终用XXX打开
------解决方案--------------------
给你段代码，请参照一下


procedure TForm1.ZhuCeCaiDan;
var

a:TRegistry;
begin
a:=TRegistry.create;
a.rootkey:=HKEY_CLASSES_ROOT;

if a.openkey( 'Folder\Shell\cutbig ',true) then
begin
//用writestring将设置值写入打开的主键
a.writestring( ' ', '加密/解密文件夹 ');
a.closekey;
end;
if a.openkey( 'Folder\Shell\cutbig\command ',true) then
begin
//command子键的内容是点击右键后选择相应项后要运行的程序；
//%1是在单击右键时选中的文件名

a.writestring( ' ', ' " '+Application.exeName+ ' " "%1 " ');
a.closekey;
end;
a.free;

end;


这个是针对文件夹的，注册表中的是Folder，如果是记事本文件的话，那么就是找TXTFILE，
同样，如果是Pas文件的话，找到对应的就可以了，具体的你自己找一下。实在不行，就加到*里面