All articles(网络文学目录) All Pictures(图片目录) All Softwares(软件目录)

 
构成Delphi工程的文件:资源文件(.res)

Writer: aaa Article type: Programming skills(编程技巧) Time: 2014/7/19 0:14:41 Browse times: 670 Comment times: 0

构成Delphi工程的文件:资源文件(.res)


Head photo

Go homepage
Upload pictures
Write articles

构成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;




There are 0 records,
Comment:
Must be registered users to comment(必须是注册用户才能发表评论)

Disclaimer Privacy Policy About us Site Map
Copyright ©2011-
uuhomepage.com, Inc. All rights reserved.