myfile
EXEから拡張子のないファイルを抽出したいのですが。
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
ですか?