EXE资源包使用

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  编译成资源 跟工程放在同一目录下.