delphi中资源的添加与解压

有时候我们需要在主程序中添加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文件已经生成，是不是很简单。