0

重複の可能性:
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() の両方を試しましたが、読み取ることができませんでした。

4

0 に答える 0