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

DarkByte · #4 01-09-2004

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!.