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 } 

 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 }

 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 }

 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     }