Foros Club Delphi - Guardar Dll's o exe's en archivos de recursos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Guardar Dll's o exe's en archivos de recursos (https://www.clubdelphi.com/foros/showthread.php?t=13858)

Guardar Dll's o exe's en archivos de recursos

¡Buenas!. Estoy intentando aprender a meter dll's y exe's en un archivo de recurso para usarlos en mi aplicacion. He encontrado el siguiente ejemplo en Planet-Source-Code:

Cita:

Empezado por Jerome Cold

itWhat You Do Is Make A Notepad and in it put
1 WAVE "Path of wave file" // 1 is the index WAVE is letting it know its a wave and the third part is the pad of the wave you adding
Save the text as a .rc example mywave.rc
in dos go to c:\program files\borland\delphi#\bin run the brcc32.exe
this is what I do brcc32.exe path of the rc you saved example : brcc32.exe mywave.rc
it will compile it to a res and you add the res to you project

same as I did for the wave you can do this any type of way in dos
path of brcc32.exe and path of your rc you can name it any way you want like this

enjoy

remember you application will have the size of the other exe too Imao
I would only do it if I wanted to embeded my trojan in it :p
but then if you think about it it will be a good type installer put a couple files
in the exe and create dir etc

JSCOTT BLAH 'PathOfRc' example I put the brcc32.exe in my c:\ so I don't have to type it all out

example: cd c:\ will take you to c:\drive I put the exe I wanted to copy there too

example : brcc32.exe c:\blah.rc
copy the res it compiles in c:\ to your project folder you working in
add the Res by doing {$R blah.res}

it will comile the res

Código Delphi [-]var
  h : TresourceStream;
begin
  h := TResourceStream.create(hInstance,'JSCOTT','BLAH');
  h.savetofile('C:\hack.exe');
  h.free
end;

this is how you can execute it
add shellApi to uses

Código Delphi [-]WinExec(c:\hack.exe,SW_NORmal);

Bien, lo del Wav lo comprendo, pero no la parte de meter otro tipo de archivos. No veo donde me dice que tengo que poner en el notepad para guardarlo como .rc.

Gracias, simplemente, por leerme
;)

Cita:

Empezado por DarkByte

Bien, lo del Wav lo comprendo, pero no la parte de meter otro tipo de archivos.

1 DarkByte tuprograma.exe

// Saludos

Ah!! yo creía que la línea

Código:

1 WAVE "Path of wave file"

¡¡Indicaba el tipo de archivo!!, yo creía que WAVE era el tipo... Muchísimas gracias roman ;) aqui estoy para lo que necesites.

Estoy probando con

Código Delphi [-]unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

  procedure SacarNotepad(Directorio:string;nombre:string);
type
  TForm1 = class(TForm)
    Button1: TButton;
    eDirectorio: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R piltrafa.res}

  procedure SacarNotepad(Directorio:string;nombre:string);
  var
    h : TresourceStream;
  begin
    h := TResourceStream.create(hInstance,'Nombre','BLAH'); //*Aqui falla
    h.savetofile(directorio+'\'+Nombre);
    h.free
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  SacarNotepad(eDirectorio.Text,'notepad.exe');
end;
end.

y poniendo en el rc

Código:

1 Nombre c:\windows\notepad.exe

Pero a la hora de ejecutarlo me salta, en la línea

Código Delphi [-]    h := TResourceStream.create(hInstance,'Nombre','BLAH');

una excepcion tipo EResNotFound con el mensaje "Resource Nombre not found". ¡Pero si le pongo el nombre que le he puesto al recurso!, ¡Si le he puesto de nombre "Nombre" por algo!.

¿De dónde salió el BLAH?

En fin, luego de algunas pruebas infructuosas y algunas búsquedas (yo no sé nada de recursos) me he enterado de lo siguiente:

El formato del archivo .rc puede ser:

nombre tipo "ruta"

donde nombre es el nombre del recurso, tipo es el tipo de recurso y ruta es la ruta al archivo.

Entonces puedes poner, por ejemplo,

MIDLL DLLS "ruta\midll.exe"

y la construcción con TResourceStream será:

Código Delphi [-]Resource := TResourceStream.Create(HInstance, 'MIDLL', 'DLLS');

El tipo de recurso lo defines tú ya que, aunque hay recursos estándar como bitmaps, iconos, strings, etc., en este caso es un recurso personalizado.

En el ejemplo de antes

1 WAVE "Path of wave file"

supongo, no estoy seguro, que el recurso será identificado por índice en lugar de por nombre.

Otra cosa importante- la razón por la que tampoco podía extraer el recurso del ejecutable -el nombre y tipo del recurso deben especificarse en mayúsculas tanto en el archivo .rc como al momento de extraerlo.

¡Y listo! Ya he podido extraer el recurso y guardarlo en disco.

// Saludos

¡Gracias roman!, ¡Funciona perfectamente!.

Me gustaría saber de donde has sacado la información, puesto que yo la he buscado y no he encontrado en ningún sitio...

Cita:

Empezado por DarkByte

Me gustaría saber de donde has sacado la información, puesto que yo la he buscado y no he encontrado en ningún sitio...

Lo del formato del archivo .rc, como de muchas, muchas otras cosas, de aquí.

Lo de las mayúsculas de ningún lado en particular, pero en varios archivos de recursos que abro así están. No he visto tal referencia en ningún lado pero es posible, no lo he probado, que el compilador de recursos convierta a mayúsculas. Yo lo tenía en minúsculas porque usé un editor de recursos para cambiar el 1 por un identificador.

// Saludos