Delphi中资源文件使用详解

一．编写 RC 脚本文本

　　 用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下：

　　 AVI 无声动画

　　 BITMAP 位图文件

　　 CURSOR 光标文件

　　 ICON 图标文件

　　 WAVE 声音文件

　　 以上所列均为标准资源类型，也可以给资源自定义一个类型，如：“mytype”。不过两者在调用方式上有些不同（在后面示例“存取资源文件中的位图”中有详细描述）。

二．根据 RC 脚本文件编译成 RES 资源文件

　　 在命令提示符中输入以下内容：

　　 brcc32 FileName.rc //注：brcc32.exe在DelphiX/Bin目录中

三．在Delphi单元中加入资源文件

　　 将生成的 RES 资源文件复制到相应程序所在的目录中，在单元文件中的“{$R *DFM}”后面加上“{$R FileName.res}”，编译后资源文件就被包含在可执行文件中了。

　　 说明：如果嫌2、3两步麻烦，可以采用更简便的做法，即：将 RC 文件直接添加到项目中，在编译Delphi项目时，会自动编译该资源文件。

四．资源文件调用示例

　　 （1）存取资源文件中的位图

//RC: testBmp bitmap res/test.bmp

Image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'res/test.bmp');


//RC: testBmp bmptype res/test.bmp

var

resStream: TResourceStream;

begin

resStream := TResourceStream.Create(HInstance, 'testBmp', 'bmptype');

Image1.Picture.Bitmap.LoadFromStream(resStream);

resStream.Free;

end;

　　 请注意上面两种调用方式的不同之处。

　（2）存取资源文件中的图标

　　 将图标放在资源文件中，可以实现动态改变应用程序的图标。

//RC: testIcon icon res/test.ico

Application.Icon.Handle := LoadIcon(HInstance, 'testIcon');

//RC: testAvi avi res/test.avi

Animate1.ResName := 'testAvi';

Animate1.Active := True;

var

jpg: TJPEGImage;

resStream: TResourceStream;

begin

jpg := TJPEGImage.Create;

resStream := TResourceStream.Create(HInstance, 'testJpg', 'jpgtype');

jpg.LoadFromStream(resStream);

Image1.Picture.Assign(jpg);

jpg.Free;

resStream.Free;

end;

screen.cursor[35]:=Loadcursor (hinstance,'mycur');

Panel1.cursor:=35;

　　2.位图的调用
　　 新建一项工程，添加一Timage控件，在需要显示的地方写以下代码：

Var mymap:Hbitmap;
begin
mymap:=LoadBitmap(hinstance,'mypic');
Image1.picture.Bitmap.Handle:=mymap；
end;

animater1.resname:='myAVI';
animater1.Active:=true;

writeln('演示程序，按任意键开始！');
readln;
playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
writeln('演示结束！');

ExtractRes('exefile','myexe','c:/new.exe');

function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;
var
Res: TResourceStream;
begin
try
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
try
Res.SavetoFile(ResNewName);
Result := true;
finally
Res.Free;
end;
except
Result := false;
end;
end;