Executable into executable

[xinyiman]

I wanted to ask a question. How can I embed an executable within another executable? I extract from the executable 1 so that the executable 2? 

[eny]

I wanted to ask a question. How can I embed an executable within another executable? I extract from the executable 1 so that the executable 2? 

Just add the 2nd executable as a resource; extract it at runtime and run it...

[typo]

You can use this tool ( http://lazarusbrasil.org/Resources.zip ) to create the resource from the executable and embed it.

[xinyiman]

Is cross-platform solution?  

[typo]

AFAIK, no. But the code is there, you can change it and share it.

[xinyiman]

This is crossplatform solution?

I wanted to ask a question. How can I embed an executable within another executable? I extract from the executable 1 so that the executable 2? 

Just add the 2nd executable as a resource; extract it at runtime and run it...

[typo]

Well, the solution itself, AFAIK, is cross-platform.

[xinyiman]

You can have a simple example of a procedure that inserts the executable c:\pippo.exe in c:\pluto.exe? Thank you very much

[typo]

Virtual Magnifying Glass, http://www.lazarus.freepascal.org/index.php/topic,2683.0.html

It is not for executables, but for resources in general.

Another example: http://www.lazarus.freepascal.org/index.php/topic,8848.msg43391/topicseen.html#msg43391 , this one for executables.

[xinyiman]

Or I did not understand me or not is what I need! I want to create an Installer-maker. And I have my executable in a place already created other executable to be extracted during installation!

[typo]

See the second example.

You create your resource, embed it, and save it through this procedure:

Code: [Select]

procedure SaveResourceAsFile(const ResName: string; ResType: pchar;
  const FileName: string);
begin
  with TResourceStream.Create(hInstance, ResName, ResType) do
    try
      SaveToFile(FileName);
    finally
      Free;
    end;
end;   


[xinyiman]

If I want to put an executable file, and two that just call the procedure three times with the same name? And then to extract those files that I included in the executable file? How do I?

[typo]

Do you want to copy the same file three times? Why?

After embedding the file, you simply need to call the procedure like that:

Code: [Select]

SaveResourceAsFile('myexe','EXE','c:\test');

[LazaruX]

Embedding an executble is a nice solution to create an installer...or a virus...
Remember if you know how too use a gun, it doesn't mean you have to use it ;-).

[xinyiman]

Sorry for the delay, but I was not able to follow the speech as the installer.

So I did some tests, but I do not work. The code that I wrote to embed an executable file within an executable file does not work. Who knows why? Thanks for your help.

Errore: The name of the executable file that must contain the other executable not found


unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.lfm}

procedure SaveResourceAsFile(const ResName: string; ResType: pchar; const FileName: string);
begin
  with TResourceStream.Create(hInstance, ResName, ResType) do
    try
      SaveToFile(FileName);
    finally
      Free;
    end;
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
   val: string;
begin
     val:=Edit1.Text;
     val:= ExtractFilePath (Application.ExeName) + val;
     SaveResourceAsFile(Application.ExeName,'exe', val);
end;

end.

initialization
{$I program.lrs}