void __fastcall TForm1::Button1Click(Tobject *Sender)
{
//将光标形状改为自己定义的：
Screen- >Cursors[crDefault] = LoadCursor( Hinstance, "C1");
//将图标改为自己定义的：
Icon = new Ticon() ;
Icon- >Handle = LoadIcon(Hinstance,"I1");
Application- >Icon = Icon ;
}
其中的Hinstance指示资源所在地为执行文件。编译执行后，点击该按纽，光标和图标都会换成新的。
对于声音、动画等文件，可以使用windows API函数播放。但是不象上面几种资源，需要遵循一定的步骤。如下所示，依次调用FindResource, LoadResource, LockResource函数，来播放一个Wav声音文件。
（当然，独立的声音文件可以在运行时直接播放。我们这里讨论的是将wav文件编译进EXE文件的情况）
在Form上放置第二个按纽，在其OnClick事件中加入以下代码：
void __fastcall TForm1::Button2Click(Tobject *Sender)
{
//定义资源块
char *wav_handle ;
//装入Wav文件
HRSRC h = FindResource(Hinstance,"S1","WAV");
HGLOBAL h1 = LoadResource(Hinstance, h);
wav_handle = (char *)LockResource(h1);
//播放Wav文件。由于Wav文件装载在内存中，
sndPlaySound函数要用SND_MEMORY参数
sndPlaySound(wav_handle, SND_MEMORY | SND_SYNC);
}
编译执行后，点击该按纽，会播放一次声音。
对于动画等文件，使用方式类似Wav文件。（BCB提供了一个Tanimate控件，可以播放无声的Avi文件）
■不能直接通过windows API使用的资源
此种资源不能够由windows API直接访问和执行。但是，我们可以用一种变通的方法来使用它。
下面示范如何使用pkunzip.exe，思路如下：程序运行时，将pkunzip.exe从EXE文件中分离出来，放在临时目录下，用ShellExecute()执行它。
在FORM上放置第三个按纽，再放置两个Edit ,用来输入pkunzip.exe的参数。
void __fastcall TForm1::Button3Click(Tobject *Sender)
{
char exefile[100], tmppath[100] ;
unsigned long ret ;
//检查pkunzip.exe是否已经存在
GetTempPath( 100, tmppath ) ;
strcpy( exefile ,(AnsiString(tmppath)+
AnsiString("") ).c_str() ) ;
ret = GetFileAttributes( exefile ) ;
if( ret == 0xffffffff )
{ //不存在，则分离出pkunzip.exe
TResourceStream &rs = *new TResourceStream( (int)Hinstance, AnsiString("unzip"),"EXEFILE" ) ;
rs.SaveToFile( AnsiString(exefile) ) ;
delete &rs ;
}
//执行pkunzip.exe
// Edit1- >Text和Edit2- >Text分别为运行时输入的zip文件名和目标文件目录。
ShellExecute(Hinstance, "open", exefile, AnsiString("-d ") + Edit1- >Text + " " + Edit2- >Text).c_str(), tmppath, SW_HIDE ) ;
Application- >MessageBox("解压缩完成", "OK", IDOK ) ;
}
下面的代码片断是把Windows自带的写字板writer.exe当成资源嵌入并释放，其资源类型使用了自定义数据格式（CUSTOM）的类型：
//资源文件writer.exe长度为204800Byte,在资源文件中定义为"CUSTOM"资源,编号为1111
HRSRC hMyRes; //resource handle
HGLOBAL hgpt; //resource pointer
LPVOID lpBuff; //resource buffer pointer
DWORD rcSize=204800; //resource size
HANDLE hFile;//file to write
LPDWORD dwByte;//byte size had been write
dwByte=&rcSize; //locate the resource and load the resource to memory and lock it
hMyRes=FindResource((HMODULE)GetWindowLong(Handle,GWL_HINSTANCE),MAKEINTRE SOURCE(1111),"CUSTOM");
if(hMyRes==NULL)
ShowMessage(SysErrorMessage(GetLastError()));
hgpt=LoadResource(NULL,hMyRes);
if(hgpt==NULL)
ShowMessage(SysErrorMessage(GetLastError()));
lpBuff=LockResource(hgpt);
//now i will read the resource and write it to an file
try
{
hFile=CreateFile("e:\\mywriter.exe",GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);
WriteFile(hFile,lpBuff,rcSize,dwByte,NULL);
if(*dwByte!=204800)
ShowMessage("Failed to write to file");
}
__finally
{
CloseHandle(hFile);
}
学习以上知识后，偶自己也写了一个关于国标图库GBTK的小程序，功能是把安装国标图库时生成的原始的archlib.idx当成资源文件嵌入（使用CUSTOM自定义数据格式），做成一个引导程序，放到国标图库的安装目录下，当运行这个引导程序时，先删除国标图库安装目录下的archlib.idx文件，然后释放原始的archlib.idx文件，最后引导国标图库运行，这样就可以解决国标图库更新后因为archlib.idx的原因引起的部分更新图集不能打开的问题了，也当是练练手了^o^。把该程序复制到国标图库的安装目录下就可以了，也可以修改一下桌面的国标图库单机版快捷方式（见图），这样使用就更方便了。
 |
| 文件: |
GBTK2006.rar |
| 大小: |
669KB |
| 下载: |
下载 | |
