实现:
{$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()但无法读取。