如何建立.res文件？

编译生成，当然用Resource Workshop可以直接生成res文件可用bcb自带的Image Editor来生成ImageEditor只能生成带有Bitmap,icon和cursor的resCB中NEW/File 新建一纯高段文本文件另存为rc文念闹件，然后在project中加入rc文件编译即可得做誉到res文件。

看看链知你的工程文件名称核唤世，例如project1.bpr

那么检查一下 project1.res文件，是不是还有重名的。改肢要不把res文件删除了，再打开工程加载资源文件。

这不是调用了，这是释放。

这是一种初级的黑客手法了。

多数情况下这样干没什么意义。

对于懂电脑的朋友，或杀毒软件能很容易的把你放出的恶意代码给抓住。

如果用来黑小菜鸟，只需要把原.exe文件的扩展名改为.dat然后用另外一个程序调用它就可以起动了。

此外，你非要“把外部exe置入c++内部，写到指定目录，并且运行”，给你的思路是，做成资源文件打包入你的程序。你可以去看资源文件的使用。

VC、C++builder下，以及不同版本下的具体 *** 作是不同的。此外，对编程来说，如果你真的想学会，一般是别人指点，自个实践。否则兆皮伏就算给你一个成例，你也很难搞清是怎么回事的。

下面是C++builder下的一个实例，希望你能看懂

****************************************************************

最近在研究BCB中资源文件的嵌入，找到一些资料，整理了一下，写下来供参考。

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

资源标识符 资源类型 资源的路径

RC文件用来描述各种系统资源，包括：

ACCELERATORS 菜单快捷键

BITMAP 位图

CURSOR 光标

DIALOG 对话框模板

DIALOGEX 对话框模板（扩展的）

FONT 字体

ICON 图标

MENU 菜单

MENUEX 菜单（扩展的）

MESSAGETABLE 消息表

POPUP d出式菜单

RCDATA 二进制数据

STRINGTABLE 字符串表

VERSIONINFO 版本信息

另外可以按如下定义自定义数据格式：

CUSTOM 自定义数据

例子：以下的src1.rc文件定义了一个声音资源，两个光标资源，三个图标资源和一个exe文件资源。

src1.rc:

S1WAV wav1.Wav

C1CURSOR　cursor1.cur

C2CURSOR　cursor2.cur

I1ICONicone1.ico

I2ICONicone2.ico

I3ICONicone3.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事件中加入以下代码：

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("\\pkunzip.exe") ).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

LPVOIDlpBuff//resource buffer pointer

DWORD rcSize=204800 //resource size

HANDLEhFile//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)

}

***************************************************************************

---