Delphi中使用资源文件.

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航