可能重复:
如何从 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() 但无法读取。