reg1 file file1.swf to try
ok??

解决方案 »

  1.   

    你自定义一种资源类型,比如swf,作为此类型打包便可。
      

  2.   

    http://www.csdn.net/Expert/topic/479/479100.shtm
      

  3.   

    //定义一个资源文件 .rc
    MySwf RC_DATA "c:\123.swf"
    MySwf 为资源标识符,可任意,RC_DATA 不可改
    再用brcc32编译生成.res文件包含资源文件
    {$ 资源文件名}
    //打开过程
    procedure TForm1.Button7Click(Sender: TObject);
    var swfstream:tfilestream;
    resstream:tresourcestream;
    begin
    swfstream:=tfilestream.Create('c:\myswf1.swf',fmCreate);
    resstream:=tresourcestream.Create(0,'MySwf',rt_rcdata);
    swfstream.CopyFrom(resstream,resstream.size);
    resstream.free;
    resstream.free;
    end;
    执行完此过程后,就会生成文件c:\myswf1.swf