紧急求援(100分)

在资源管理中,当双击一个文本文件时,windows就会打开记事本,并装入这个文件,现在,我编
了一个文本编辑器,要代替记事本,但如何实现上述功能呢,还有,如果将可执行文件加入windows的右键菜单,
单右击一个文本文件(其它文件也可以,如ini,html)的时候,单击这个可执行文件的菜单,就会打开这个文件.

//双击*.txt直接关联：
procedure TForm1.text1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey('txtfile/shell/open/command', true);
reg.WriteString('', '"' + application.ExeName + '" "%1"');
reg.CloseKey;
reg.Free;
end;

//加到右键菜单：
procedure TForm1.right1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey('*/shell/myedit/command', true);
reg.WriteString('', '"' + application.ExeName + '" "%1"');
reg.CloseKey;
reg.OpenKey('*/shell/myedit', false);
reg.WriteString('', '我的编辑器(&M)');
reg.CloseKey;
reg.Free;
end;

接受答案了.