怎样将某一类型的文件与某一应用程序相关联？(50分)

例：双击*.ppp（任一后缀）文件，则会自动执行某一应用程序。

uses
; Registry

procedure TForm1.Button1Click(Sender: TObject);
var
; reg: TRegistry;
begin
; reg := TRegistry.Create;
; reg.RootKey := HKEY_CLASSES_ROOT;
; reg.LazyWrite := false;
; {Add Program Support}
; reg.OpenKey('.bor/shell/open/command', true);
; {Invoke the program passing the file name as the first
; parameter}
; reg.WriteString('',
; ; 'C:/Program Files/Borland/Delphi5/Project1.exe %1');
; {Add Icon Display}
; reg.CloseKey;
; reg.OpenKey('.bor/DefaultIcon',true);
; {Use the first icon in the executable to display}
; reg.WriteString('',
; 'C:/Program Files/Borland/Delphi5/Project1.exe,0');
; reg.CloseKey;
; reg.free;
end;

不修改注册表，怎么解决？

就是改注册表啊！
据我所知，所有的软件都是这样干的，Delphi 也不例外（我是说Delhpi本身）

我有源代码，你留下email，我寄给你。

多人接受答案了。

请问，deldhi如何获得参数