delphi中资源的添加与解压

页面导航:首页 > 软件编程 > Delphi > delphi中资源的添加与解压

delphi中资源的添加与解压

来源: 作者: 时间:2016-01-18 15:41 【

有时候我们需要在主程序中添加sys和dll等二进制资源,当我们预期的sys和dll文件被删改时,我们可以从资源中解压。首先编写资源脚本文件,测试的脚本my.rc内容很简单,只是当前目录的

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

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

viewpic bin ".\viewpic.exe"

 

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

brcc32 my.rc

 

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

 

找到工程文件中的"{$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文件已经生成,是不是很简单。

 

 

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<