swf资源文件释放.

//定义一个资源文件 .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;