高手请进-我做了一个flash播放器，如何设成默认播放？默认播放时如何获取文件路径？

Question

如题

Answer 1

修改注册表，然它可以找到你的播放器！就是建立关联
你的程序必须可以接受参数 ParamStr ParamCount给分！！

Answer 2

取文件路径
======================
点击菜单”Run---Parameters",在参数编辑框中填入一个参数名称，如“filename"
在窗体建立时可以通过以下方式访问
 if FileExists(ParamStr(1)) then
   //打开你的文件
    openfile:=paramstr(1);//paramstr(1)为返回的文件名！
=================================
设成默认的播放器
=================================
var
reg:TRegistry;
str:string;
begin
if CheckBox1.Checked then
   begin   reg:=TRegistry.Create;//建定注册表句柄
   reg.RootKey:=HKEY_CLASSES_ROOT; //设置根键
   reg.OpenKey('\ShockwaveFlash.ShockwaveFlash\shell\open\command',false);//打开指定的注册表
   str:=reg.ReadString('');
   reg.WriteString('',application.ExeName +' %1');//写入你的程序来关联
   reg.Free;
end;