我已经制作了资源文件,并已将其编译并与我的 delphi 单元链接。但是从该资源文件中读取时我遇到了问题。
implementation
{$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