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.编译所有工程,运行.

DELPHI 打包文件的方法

标签：

原文地址：http://www.cnblogs.com/vov5601/p/4741307.html