把EXE可执行文件等作为资源包含在Delphi编译文件中

摘自我自己过去写的一段心得。

1.编辑资源文件 *.RC
Wave： 资源文件是声音文件；
RCDATA： 二进制数据
AVI： AVI动画；
ICON： 图标文件；
BITMAP： 位图文件；
CURSOR： 光标文件；
比如:
MyWav WAVE "FileName.Wav"

2.使用Brcc32转化为*.RES文件

3.在工程中引用RES文件
比如:{$R MyRes.RES}

4.运行时读入
    通过TResourceStream ,比如TResourceStream.Create(HInstance, ResName, RT_RCDATA);
    API:LoadBitmap,LoadIcon等
    组件:Image1.Picture.Bitmap.LoadFromResourceName
/////////////////////////////////////////////////////////
把EXE可执行文件等作为资源包含在Delphi编译文件中2010/01/18 8:29 P.M.感觉还是挺有用的，转载保存了~~~  

建立文本文件       TEST.RC       撰写下面的一行   
    
     AEXE     EXEFILE     c:\test.exe   
    
     存盘   
    
     copy     test.rc     到你DELPHI目录里的     bin     目录   
    
     执行     brcc32     test.rc   
     得到     test.res   
    
     copy     test.res     到你的工程目录   
    
     记得在工程文件里加上     {$R     test.res}   
    
     提取RES中的TEST.EXE的函数   
    
     procedure     extractexeres(restype,     resname,     resnewname:string);   
     var     
         res:tresourcestream;     
     begin   
         res:=tresourcestream.create(hinstance,resname,pchar(resyype));   
         res.savetofile(resnewname);   
         res.free;     
     end;  

建立文本文件       myjpg.RC       撰写下面的一行   
    
     Hash     JPGFILE     c:\myjpg.jpg   
    
     存盘   
    
     copy     myjpg.rc     到你DELPHI目录里的     bin     目录   
    
     执行     brcc32     myjpg.rc   
     得到     myjpg.res   
    
     copy     myjpg.res     到你的工程目录   
    
     记得在工程文件里加上     {$R     myjpg.res}   
    
     提取RES中的MYJPG.jpg的函数   
    
     procedure     extractexeres(resname,     restype,     resnewname:string);   
     var     
         res:Tresourcestream;     
     begin   
         res:=Tresourcestream.create(hinstance,resname,pchar(restype));   
         res.savetofile(resnewname);   
         res.free;     
     end;   
     //这样你就可以调用resnewname这个     jpg文件了。   
     调用的时候如下：   
     Extractexeres(‘Hash‘,‘JPGFILE‘,‘f:\myjpg.jpg‘);

换一种说法：