目的,在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;