如何把FLASH和GIF打包入程里面呢?

Question

1.以自定义格式加到资源文件中，使用前先将资源生成一个临时文件，使用后删除。
2.用TBitBtn或TSpeedButton可以(Font.Color),而TButton的产色是由Windows环境设定的。

Answer 1

请问用什么制作资源文件， 我用delphi5自带的image editor好像只能自己画， 不能导入其它图像文件,

Answer 2

可以用Resource Builder,很好用，这不是Delphi带的，网上可以找得到。
比如Delphi生成的Exe文件中的RCData就是一种自定义资源，在Resource Builder中还可以随意分类。然后要将这个资源编译好并包括进Delphi中{$R XXX.Res},用函数将它读出来(我也是学习中，不知道用什么函数，只是在VB中用过),然后就是用文件流操作了(也许文件流中有LoadFromreSource之类的,不过很抱歉我现在也不知道)。

Answer 3

但是在Delphi播放Flash时，必须指定Filename,这个时候，swf文件已经在程序里了，怎么设置这个参数？

Answer 4

1、写一个*.RC文件，其中有这样的一句：myflash rcdata "myflash.swf"；
2、在Project manager中将它加入；
3、在程序中创建一临时文件名，然后
var
  ResStrm: TResourceStream;
begin
  ResStrm := TResourceStream.Create( HInstance, 'myflash', RT_RCDATA );
  try
    ResStrm.SaveToFile(临时文件名);
  finally
    ResStrm.Free;
  end;
  将“临时文件名”赋给Flas控件，然后Play
  然后删除 临时文件