鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

delphi中资源的添加与解压

来源:互联网 作者:佚名 时间:2015-07-05 21:30
有时候我们需要在主程序中添加sys和dll等二进制资源,当我们预期的sys和dll文件被删改时,我们可以从资源中解压。 首先编写资源脚本文件,测试的脚本my.rc内容很简单,只是当前目录的一个文件,代码如下: viewpic bin "./viewpic.exe" 然后我们需要将rc文件

    有时候我们需要在主程序中添加sys和dll等二进制资源,当我们预期的sys和dll文件被删改时,我们可以从资源中解压。

    首先编写资源脚本文件,测试的脚本my.rc内容很简单,只是当前目录的一个文件,代码如下:

    viewpic bin "./viewpic.exe"

    然后我们需要将rc文件编译成res,那样我们的程序就可以添加资源,简单地用批处理写编译资源脚本build.bat:

    brcc32 my.rc

    运行build.bat,在my.rc的当前目录下会生成一个名为my.res的文件。

    找到delphi工程文件中的"{$R *.res}",我们添加一行{$R my.res},这样我们的资源文件就添加到我们的主程序。

    然后我们需要解压资源,简单地写一下过程,代码如下:

    procedure ExtractRes(ResName,ResType,szFileName:string);

    var

    resStream:TResourceStream;

    begin

    //*.rc资源文件

    //Wave,RCDATA,AVI,ICON,BITMAP,CURSOR

    try

    resStream := TResourceStream.Create(HInstance,ResName,PChar(ResType));

    resStream.SaveToFile(szFileName);

    finally

    resStream.Free;

    end;

    end;

    接着调用ExtractRes('viewpic','bin','c:/viewpic.exe');我们就可以发现c:/viewpic.exe文件已经生成,是不是很简单。

网友评论
<