如何在与单元模块链接后从资源文件中读取?

时间:2012-12-26 04:56:49

标签: delphi delphi-7 embedded-resource

  

可能重复:
  How to read from Resource file in 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 。我已尝试使用TResourceStream.Create()和TResourceStream.CreateById()但无法读取。

0 个答案:

没有答案