2

myfileEXEから拡張子のないファイルを抽出したいのですが。

Resource.res「ResourceBuilder」でリソースファイルを作成し、それをプロジェクト{$R Resource.res}に追加すると、それを実行できます。

私はこのコードを使用しています

implementation

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

procedure TForm1.Button1Click(Sender: TObject);
var
  fname :string;
  rStream : TResourceStream;
begin
  fname := 'myfile';
  rStream := TResourceStream.Create(hInstance, 'FILE1', RT_RCDATA) ;
  try
    rStream.SaveToFile(ExtractFilePath(ParamStr(0))+fname);
  finally
    rStream.Free
  end;
end;

「リソースと画像...」を使用してプロジェクトに拡張子のないファイルを追加すると、「リソースFILE1が見つかりません」というエラーが表示されます。

2番目の方法を使用して抽出するにはどうすればよいmyfileですか?

4

1 に答える 1