构成Delphi工程的文件：资源文件（.res）

资源文件（.res）

资源文件的扩展名为.res，资源文件可以将应用程序用到的资源（如声音、图像等）包含进来，应用程序调用资源文件编译后，可以将资源编译到.exe 文件中。

1．建立资源文件

在此以创建一个声音的资源文件为例进行具体讲解。

（1）新建一个文本文件，录入代码如下：

Sound wav Sound.wav

其中“Sound.wav”为一个Windows 下普通的声音文件。

（2）将文本文件保存为名字为Sound.rc 的RC 的文件。RC 文件是资源的源文件，编译器编译这些文件，生成.res 的资源文件。

（3）将Sound.rc 编译生成资源文件。找到Brcc32.exe 文件所在地址，一般都在Delphi 7 安装盘的BorlandDelphi7Bin 目录下。在DOS 的提示符下运行Brcc32.exe 文件目录，代码如下：

brcc32 Sound.rc

运行完毕后，在当前目录内生成的Sound.res 资源文件已经将Sound.wav 声音文件编译成资源文件了。

用Image Editor 软件如同建立图像文件一样，可以方便地建立图像的资源文件。

2．调用资源文件

调用资源文件的代码如下：

{$R *.DFM}

{$R Sound.res} //在此声明Sound.res 资源文件

读取资源文件，并播放声音。代码如下：

procedure TForm1.FormCreate(Sender: TObject);

var

hResInfo :THandle;

begin

hResInfo := FindResource(HInstance,’Sound’,’wav’);

hRes := LoadResource(HInstance, hResInfo);

If hRes > 32 Then

begin

PtrSound :=LockResource(hRes);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

SndPlaySound(PtrSound,Snd_Async or Snd_Memory);

end;