重複の可能性:
Delphi 7 でリソース ファイルから読み取る方法は?
実装:
{$R *.dfm}
{$R 'stuff.res' 'stuff.rc'}
procedure TForm1.FormCreate(Sender: TObject);
var
vExeFile: string;
RS: TResourceStream;
begin
RS := TResourceStream.Create(HInstance, 'ExeTest', RT_RCDATA);
try
vExeFile := ExtractFilePath(ParamStr(0)) + 'tmp.exe';
RS.SaveToFile(vExeFile);
finally
RS.Free;
end;
end;
上記のコードを試しましたが、Resource ExeTest not foundと表示されます。TResourceStream.Create() と TResourceStream.CreateById() の両方を試しましたが、読み取ることができませんでした。