在delphi的exe文件中嵌入另外一个exe文件

Posted 2020-08-16 张志峰的博客

http://www.cnblogs.com/dabiao/archive/2009/11/28/delphi.html

 

 1、创建rc文件。可以用任意文本编辑器来写。文件格式为："资源名 资源类型 文件名"。

          对于资源类型，如果是exe文件，应该是EXEFILE，如果是二进制文件，则是RCDATA。  

           这里创建一个文件float.rc：

AEXE EXEFILE "E:\\Software\\float.exe"

2、将这个rc文件转换成res文件。

         复制float.rc到DELPHI安装目录里的bin文件夹， 执行brcc32 float.rc，生成float.res 

 

     3、将这个res文件包含至工程文件中。

{$R   float.res}

4、提取RES中的float.EXE。

代码

Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> 1



procedure TFormMain.IEEE7541Click(Sender: TObject);
 3  var
   t : TResourceStream;
 begin
 7  if FileExists(\'float.exe\') then
   WinExec(\'float.exe\',Sw_normal)
 else
   begin
     try
       t := TResourceStream.Create(HInstance,\'AEXE\',\'EXEFILE\'); //其中HInstance为一个句柄常量；rwww为资源名；exefile为资源类型
      t.SaveToFile(\'float.exe\');
     finally
       t.free;
     end;
     WinExec(\'float.exe\',Sw_normal);
   end;
 end;

　　这样，就可以在一个exe文件中，调用另外一个exe程序了。