Delphi中使用资源文件

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

　　{$R *.dfm}
　　{$R SwfFile.RES}//就是这行
　　
　　
　　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;