关于播放器的问题(100分)

如何用delphi编写使双击某个.mp3文件自动调用自己编写的mp3播放器（也就是关联文件），还要使这个mp3文件的名字出现在播放列表框中。

gz

const
cMyExe = '.avi';
//文件扩展名
procedure TForm1.FormCreate(Sender: TObject);//注册文件关联
var
Reg: TRegistry;
begin

Reg := TRegistry.Create;
try
Reg.RootKey :=HKEY_CLASSES_ROOT;
// Reg.OpenKey(cMyExe+'/DefaultIcon', True);
// Reg.WriteString('', Application.ExeName + ',0');
reg.OpenKey(cMyExe,true);
reg.WriteString('','myfile');
Reg.CloseKey;
Reg.OpenKey('myfile/shell/open/command', True);
Reg.WriteString('',Application.ExeName + ' %1');
Reg.CloseKey;
finally
Reg.Free;
end;

end;

procedure TForm1.MediaPlay(PlayFile: string);
begin

with mediaplayer1do
begin

FileName:=PlayFile;
AutoEnable:=true;
AutoRewind:=true;
Open;
Play;
end;

end;


procedure TForm1.FormShow(Sender: TObject);//程序启动时播放
begin

if paramstr(1)<>'' then

MediaPlay(paramstr(1));
end;

1。如何关联请参照上面的程序，
2。修改你自己写的mp3播放器，在里面读去传入的参数，并把参数写入列表
这是别的程序没法帮你的