BCB中嵌入资源文件的研究

资源文件是一个以.rc结尾的文本文件，RC是资源脚本（Resource   Script）的意思，它的格式很简单，每行一个资源，按如下格式定义：


　　资源标识符   资源类型   资源的路径 
   RC文件用来描述各种系统资源，包括： 
   ACCELERATORS   菜单快捷键   
   BITMAP   位图   
   CURSOR   光标   
   DIALOG   对话框模板   
   DIALOGEX   对话框模板（扩展的）   
   FONT   字体   
   ICON   图标   
   MENU   菜单   
   MENUEX   菜单（扩展的）   
   MESSAGETABLE   消息表   
   POPUP   弹出式菜单   
   RCDATA   二进制数据   
   STRINGTABLE   字符串表   
   VERSIONINFO   版本信息   
   另外可以按如下定义自定义数据格式： 
   CUSTOM 自定义数据
　　例子：以下的src1.rc文件定义了一个声音资源，两个光标资源，三个图标资源和一个exe文件资源。
　　src1.rc:
　　S1　　　　WAV　　 wav1.Wav
　　C1　　　　CURSOR　cursor1.cur
　　C2　　　　CURSOR　cursor2.cur
　　I1　　　　ICON　　icone1.ico
　　I2　　　　ICON　　icone2.ico
　　I3　　　　ICON　　icone3.ico
　　unzip　　 EXEFILE　pkunzip.exe
　　可以将写好的rc文件加到project(项目）中。也可以手工将其编译为供程序直接使用的二进制资源文件（.res文件）加到project(项目）中。在BCB中，可以使用命令行：brcc32 src1.rc src1.res进行编译。
   ■能够利用windows API函数直接访问的资源有：
　　图标　 LoadIcon（）
　　光标　 LoadCursor（）
　　加速表 LoadAccelerators（）
　　位图　 LoadBitmap（）
　　菜单　 LoadMenu（）
　　字符串 LoadString（）
　　前五个API函数使用方法都一样，带两个参数。
　　第一个参数指明资源的存放地，第二个参数为rc文件中资源的标识。
　　字符串LoadString除这两个参数外，还有两个参数，指明字符串缓冲区的地址和大小。
   下面按照使用的简繁程度，依次说明各类资源的使用方法。需要说明的是，下面讲述的使用方法，在别的编译环境下（BC, VC等）也是一样的。
　　1：建立一个新的项目
　　启动BCB,选FILE- >new- >Application 建立一个新的项目。
　　在project- >Add to Project中，加入写好的src1.rc文件。当然，那些声音、光标、图标文件都应该存在。
　　这时，我们有了一个空的窗体(Form)。
　　下面的一小段程序示范了图标和光标的使用。

　　在Form上放置一个按纽，在其OnClick事件中加入以下代码：

1 void __fastcall TForm1::Button1Click(Tobject *Sender)
2 {
3 　 //将光标形状改为自己定义的：
4 　 Screen- >Cursors[crDefault] = LoadCursor( Hinstance, "C1");
5 　 //将图标改为自己定义的： 
6 　 Icon = new Ticon() ;
7 　 Icon- >Handle = LoadIcon(Hinstance,"I1");
8 　 Application- >Icon = Icon ;
9 } 

其中的Hinstance指示资源所在地为执行文件。编译执行后，点击该按纽，光标和图标都会换成新的。
　　对于声音、动画等文件，可以使用windows API函数播放。但是不象上面几种资源，需要遵循一定的步骤。如下所示，依次调用FindResource, LoadResource, LockResource函数，来播放一个Wav声音文件。
　　（当然，独立的声音文件可以在运行时直接播放。我们这里讨论的是将wav文件编译进EXE文件的情况）
　　在Form上放置第二个按纽，在其OnClick事件中加入以下代码：

 1 void __fastcall TForm1::Button2Click(Tobject *Sender)
 2 {
 3     //定义资源块
 4     char *wav_handle ;
 5     //装入Wav文件
 6     HRSRC h = FindResource(Hinstance,"S1","WAV");
 7 　  HGLOBAL h1 = LoadResource(Hinstance, h);
 8 　  wav_handle = (char *)LockResource(h1);
 9     //播放Wav文件。由于Wav文件装载在内存中，
10 　　 sndPlaySound函数要用SND_MEMORY参数
11     sndPlaySound(wav_handle, SND_MEMORY | SND_SYNC);
12 }

编译执行后，点击该按纽，会播放一次声音。
　　对于动画等文件，使用方式类似Wav文件。（BCB提供了一个Tanimate控件，可以播放无声的Avi文件）
　　■不能直接通过windows API使用的资源　 
　　此种资源不能够由windows API直接访问和执行。但是，我们可以用一种变通的方法来使用它。
　　下面示范如何使用pkunzip.exe，思路如下：程序运行时，将pkunzip.exe从EXE文件中分离出来，放在临时目录下，用ShellExecute()执行它。
　　在FORM上放置第三个按纽，再放置两个Edit ,用来输入pkunzip.exe的参数

 1 void __fastcall TForm1::Button3Click(Tobject *Sender)
 2 {
 3      char exefile[100], tmppath[100] ;
 4 　　 unsigned long ret ;
 5 　　 //检查pkunzip.exe是否已经存在
 6      GetTempPath( 100, tmppath ) ;
 7 　　 strcpy( exefile ,(AnsiString(tmppath)+
 8 　　 AnsiString("\\pkunzip.exe") ).c_str() ) ;
 9      ret = GetFileAttributes( exefile ) ;
10 　　 if( ret == 0xffffffff )
11 　　 { //不存在，则分离出pkunzip.exe
12 　　　　　 TResourceStream &rs = *new TResourceStream( (int)Hinstance, AnsiString("unzip"),"EXEFILE" ) ;
13 　　       rs.SaveToFile( AnsiString(exefile) ) ;
14 　　　　　 delete &rs ;
15 　 }
16 　 //执行pkunzip.exe
17    // Edit1- >Text和Edit2- >Text分别为运行时输入的zip文件名和目标文件目录。
18    ShellExecute(Hinstance, "open", exefile, AnsiString("-d ") + Edit1- >Text + " " + Edit2- >Text).c_str(), tmppath, SW_HIDE ) ;
19 　 Application- >MessageBox("解压缩完成", "OK", IDOK ) ;
20 }

   下面的代码片断是把Windows自带的写字板writer.exe当成资源嵌入并释放，其资源类型使用了自定义数据格式（CUSTOM）的类型： 
//资源文件writer.exe长度为204800Byte,在资源文件中定义为"CUSTOM"资源,编号为1111 

 1 HRSRC   hMyRes;     //resource handle 
 2 HGLOBAL   hgpt;       //resource pointer 
 3 LPVOID    lpBuff;     //resource buffer pointer 
 4 DWORD     rcSize=204800;    //resource size 
 5 HANDLE    hFile;//file to write 
 6 LPDWORD dwByte;//byte size had been write 
 7 dwByte=&rcSize; //locate the resource and load the resource to memory and lock it 
 8 hMyRes=FindResource((HMODULE)GetWindowLong(Handle,GWL_HINSTANCE),MAKEINTRE SOURCE(1111),"CUSTOM"); 
 9 if(hMyRes==NULL) 
10     ShowMessage(SysErrorMessage(GetLastError())); 
11 hgpt=LoadResource(NULL,hMyRes); 
12 if(hgpt==NULL) 
13     ShowMessage(SysErrorMessage(GetLastError())); 
14 lpBuff=LockResource(hgpt);
15 
16 //now i will read the resource and write it to an file
17 
18 try
19     { 
20     hFile=CreateFile("e:\\mywriter.exe",GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL); 
21     WriteFile(hFile,lpBuff,rcSize,dwByte,NULL); 
22     if(*dwByte!=204800) 
23       ShowMessage("Failed to write to file"); 
24     } 
25    __finally 
26     { 
27     CloseHandle(hFile); 
28     }

以上资源文件的内容介绍是从google搜索后转载来的。

转载于:https://www.cnblogs.com/cwbo-win/articles/3393939.html