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