Delphi中使用资源文件

核心提示：目的,在Delphi中使用资源文件本例是将一个Flash动画加到我的们程序中,在程序启动时再释放出来.先新建一个文件文件写入内容:Flash SwfFile1 Thanks.SWF另存为:SwfFile.rc然后用brcc32.exe生成资源文件.res然后在Delphi中加入一行(最后一行)implementatio

目的,在Delphi中使用资源文件
本例是将一个Flash动画加到我的们程序中,在程序启动时再释放出来.
先新建一个文件文件
写入内容:Flash SwfFile1 Thanks.SWF
另存为:SwfFile.rc
然后用brcc32.exe生成资源文件.res
然后在Delphi中加入一行(最后一行)
implementation

{$R *.dfm}
{$R SwfFile.RES}//就是这行

然后加一个PRocedure:

procedure FlashResToFile(const ResName, ResType, FileName: string);
var
  FlashRes: TResourceStream;
begin
  FlashRes := TResourceStream.Create(HInstance, ResName, PChar(ResType));
  try
　  FlashRes.SaveToFile(FileName); //将资源保存为文件，即还原文件
  finally
　  FlashRes.Free;
  end;
end;

使用:
　  FlashResToFile('FLASH', 'SwfFile1', 'Thanks.SWF');
　  ShockwaveFlash1.Movie := ExtractFilePath(ParamStr(0)) + 'Thanks.SWF';
　  ShockwaveFlash1.Play;