delphi制作资源文件（一）一个A.exe释放出B.exe

首先新建一个工程，作为资源文件

添加一个label1.Caption：=‘我是资源文件’

然后运行工程 

AAA EXEFILE Projectzy.exe      把这段文字复制到个记事本里保存为AAA.rc


注意：Projectzy.exe   就是你要做成资源的程序


同理：bbb dllfile bbb.dll 写入bbb.rc



AAA为在程序里调用资源文件的名字      就是给资源文件起个名字在程序里调用


EXEFILE      为文件类型      意思是exe文件


AAA.EXE      为你要做成资源的exe文件


在写个批处理文件内容为 
path=C:\Program Files (x86)\Borland\Delphi7\Bin;


Brcc32 AAA.rc




第一行是你delphi的安装目录下的bin目录下的Brcc32.exe的位置      因为要用brcc32.exe编译


第二行的AAA.rc为 你刚才写的rc文件的文件名


把以上两个文件和你要做成资源文件的exe放在一个目录下      执行批处理 


这时候会多出      AAA.res




我们到delphi中新建个application      往上面放上一个按钮      点那个按钮的时候释放资源文件


并且运行程序          要把AAA.res      放到工程目录下      就是你这个程序保存的地方！


代码如下


unit Unit1;


interface


uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Buttons,shellapi;        //shellapi引用      api函数来运行程序


type
      TForm1 = class(TForm)
        BitBtn1: TBitBtn;
        procedure BitBtn1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;


var
      Form1: TForm1;


implementation


{$R *.dfm}
{$R 'AAA.RES'}        //这里调用得写上你的RES文件的名字


 


procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;                            //这个方法意思是释放资源文件      有三个参数 
                                  //一个资源类型      2 资源名字      生成资源的名字




procedure TForm1.BitBtn1Click(Sender: TObject);
begin
        ExtractRes('EXEFILE', 'AAA', 'AAA.exe');      //这里调用函数释放资源


        showmessage('释放成功');        // 弹出个对话框 可以不写 没啥用 只是提示一下
        sleep(1000);        //让程序 休眠1秒
        ShellExecute(0, nil, 'AAA.exe',nil, nil,sw_show);      //运行程序 带的四个参数不用管他 
//如果要是想隐藏运行把最后那个参数改为      SW_HIDE 就OK了 

end;

end.

运行结果

以上整理至网络

源码下载