Delphi中使用資源文件

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