DELPHI 打包文件的方法

用资源文件搞定.1、首先建新工程, 保存, 注意这次我们不删除 {$R *.res}

2、复制两个 exe 文件到工程目录, 譬如文件是: 1.exe、2.exe

3、建立文本文件输入:MyFile1 RCDATA "1.exe"MyFile2 MyRes "2.exe"然后保存为: 3.rc, 并 Add 到工程中.

4、此时的工程文件会自动插入: {$R ‘3.res‘ ‘3.rc‘}5.加代码:procedure TForm1.Button1Click(Sender: TObject);var  rs: TResourceStream;begin  rs := TResourceStream.Create(HInstance, ‘MyFile1‘, RT_RCDATA);  rs.SaveToFile(‘c:\1.exe‘);  WinExec(‘c:\2.exe‘, 1);  rs.Free;end;

procedure TForm1.Button2Click(Sender: TObject);var  rs: TResourceStream;begin  rs := TResourceStream.Create(HInstance, ‘MyFile2‘, ‘MyRes‘);  rs.SaveToFile(‘c:\1.exe‘);  WinExec(‘c:\2.exe‘, 1);  rs.Free;end;6.编译所有工程,运行.