reg1 file file1.swf to try
ok??
ok??
解决方案 »
- 请大家帮我看下这个执行顺序 简单的
- fastreport3.03预览的问题
- 如何卸载掉已经安装的自定义组件?
- 请教一个treeview的问题??想了很久,希望可以得到大家的帮助。。。
- 怎么使用TShellFolder在非管理员用户下修改磁盘盘符?
- Delphi包技术讨论 DLL(package),Interface,Application
- 如何改变form的captoin的字体类型和颜色
- 如何在TWebBrowser中给HTML页面中Java Applet设置属性?
- 哪有Delphi帮助的PDF文档?
- 求助
- 请问有没有在D6里用RegisterPropertyEditor的啊?
- 如何用语句创建Access表
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