procedure TUnionExpress.ExtractExeRec(restype,resname,resnewname:string);
var
res :TResourceStream;
begin
res := TResourceStream.Create(HInstance , resname , PChar(restype));
res.SaveToFile(resnewname);
res.Free;
end;
ExtractExeRec('exefile','aexe',SelfUser.SaveRESPath); //打开方法 释放出来test文件
{$R test.RES}
test.rc 文件内容
AEXE EXEFILE D:\Hero\Hero.exe
使用 brcc32.exe 编译成资源 跟工程放在同一目录下.