我已经创建了资源文件,并已将其编译并链接到我的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
答案 0 :(得分:0)
如果要导出RCDATA,您的rc文件必须如下所示:
ExeTest RCDATA YourDataFileName