分类：
2010-08-12 19:32:29
在Delphi项目中，通常有一个与项目名称主文件名相同的.RES文件，该文件用于保存应用程序图标等资源，对应于此文件，在项目文件中一定含有编译指示“{$R *.res}”，告诉编译器编译时需要包含与项目主文件名相同的.RES文件。同样，如果需要在应用程序中以资源形式包含任何文件类型，也可以利用.RES文件。本文将告诉你如何利用RES文件在Delphi程序内部包含文件。
一创建.RES文件
这里以一组音频文件为例。首先用记事本等任何文本编辑器编写文件“MyMusic.RC”。文件的格式及内容如下：
SRC1 FILE1 OnlyYou.mp3
SRC2 FILE2 YesterdayOnceMore.mp3
SRC3 FILE3 MoonRiver.mp3
其中，每一行表示声明一项资源，每一项资源的声明包含三个参数定义，第一个参数是资源的名称，第二个参数是资源的类型描述（本例定义了三类），第三个参数是文件名。参数之间必须由空格隔开。
编写完成“MyMusic.RC”文件后，将其与上述三个.MP3文件放置在同一文件夹中（为了避免由设置路径带来的麻烦）。然后以下面的命令行运行应用程序brcc32.exe（位于..\Delphi6\Bin）：brcc32 mymusic.rc需要注意的是，该命令只能在命令行方式下执行。如果系统的PATH环境变量中不包含Delphi的运行路径，那么你还需要将brcc32.exe与MyMusic.RC、三个.MP3文件放置在同一路径中进行。运行上述命令行后，将在同一路径中得到文件“MyMusic.RES”，这就是一个独立完整的资源文件，其格式是遵循Windows 标准的，因此可以在诸如VB、VC、CBuilder等多种开发环境中使用。
二在程序中声明包含.RES文件
你只需要在项目中的某个单元中（最好是你需要利用这些资源的单元，这样会使你的应用程序更具有可读性）加入如下编译指示：
$R MyMusic.RES}
{
尽管该编译指示可以位于单元的任何位置，但为了使你的源代码结构合理，最好还是将其并列位于编译指示“{$R *.dfm}”（每个含有窗体文件的单元中都含有该行编译指示）。这里的编译指示就明确告诉编译器，在编译应用程序时需要将资源文件“MyMusic.RES”包含到应用程序中。
三在运行时获取资源
上述两步工作仅仅是基础（但一定是必要的），利用资源才是根本目的。下面的过程将告诉你如何将应用程序中包含的资源（文件）重新还原。
procedure MusicResToFile(const ResName, ResType,FileName: string);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(HInstance,ResName, PChar(ResType));
Res.SaveToFile(FileName); //将资源保存为文件，即还原文件
//你还可以进行其它的流操作，在内存中实现对资源利用而不必另存为文件
Res.Free;
end;
调用该过程的示例如：
MusicResToFile('SRC2', 'FILE2', 'TheSecondMusic.MP3');
值得一提的是，利用此方法，你完全可以制作自己的安装程序，该安装程序仅包含一个可执行文件，在该可执行文件中以资源的形式包含所有将要安装的内容（文件）。此外，如果在你的应用程序中需要播放外部音频文件（如背景音乐、声音提示等），也可通过此方法将这些外部文件包含到应用程序中，从而避免用户误删这些音频文件导致应用程序的不完整。
例1：
前几天看见文章，今天没事做就试了试 下面写下心得希望对大家有用！！
首先先制作资源文件如何制作呢？
AAA EXEFILE AAA.exe 把这段文字复制到个记事本里保存为AAA.rc
AAA为在程序里调用资源文件的名字 就是给资源文件起个名字在程序里调用
EXEFILE 为文件类型 意思是exe文件
AAA.EXE 为你要做成资源的exe文件
在写个批处理文件内容为
path=C:\Program Files\Borland\Delphi7\Bin;
Brcc32 AAA.rc
第一行是你delphi的安装目录下的bin目录下的Brcc32.exe的位置 因为要用brcc32.exe编译
第二行的AAA.rc为 你刚才写的rc文件的文件名
把以上两个文件和你要做成资源文件的exe放在一个目录下 执行批处理
这时候会多出 AAA.res
我们到delphi中新建个application 往上面放上一个按钮 点那个按钮的时候释放资源文件
并且运行程序 要把AAA.res 放到工程目录下 就是你这个程序保存的地方！
代码如下
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons,shellapi; //shellapi引用 api函数来运行程序
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{$R 'AAA.RES'} //这里调用得写上你的RES文件的名字
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end; //这个方法意思是释放资源文件 有三个参数
//一个资源类型 2 资源名字 生成资源的名字
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ExtractRes('EXEFILE', 'AAA', 'AAA.exe'); //这里调用函数释放资源
showmessage('释放成功'); // 弹出个对话框 可以不写 没啥用 只是提示一下
sleep(1000); //让程序 休眠1秒
ShellExecute(0, nil, 'AAA.exe',nil, nil,sw_show); //运行程序 带的四个参数不用管他
//如果要是想隐藏运行把最后那个参数改为 SW_HIDE 就OK了
//本文为本站原创
//转载请注明
end;
end.
例2：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
procedure MusicResToFile(const ResName, ResType,FileName: string);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{$R 1.RES}
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
resize:=false;
end;
procedure tform1.MusicResToFile(const ResName, ResType,FileName: string);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(HInstance,ResName, PChar(ResType));
Res.SaveToFile(FileName); //将资源保存为文件，即还原文件
//你还可以进行其它的流操作，在内存中实现对资源利用而不必另存为文件
Res.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
MusicResToFile('SRC1', 'FILE1', '1.wma');
finally
showmessage('dfdsfds');
end;
end;
end.
