[DarkByte]

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

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