正在阅读：Delphi中资源文件使用详解Delphi中资源文件使用详解

2005-07-06 10:33 出处：作者：doubon 责任编辑：moningfeng

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

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

　　其中"mypic"为位图资源文件中的名称。

　　3.AVI文件的调用
　　新建一工程，添加一Animate控件，在需要的地方加入：

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

　　其中myAVI为视频文件在资源文件中的名称。

　　4.调用WAV文件
　　在uses中加入mmsystm单元，以便在程序中播放WAV文件。播放时Playsound(pchar('mywav'),hinstance,sndsync or snd_resource);其中mywav为声音文件在资源中的名称。

　　5.加入光标
　　加入光标比较容易，只要将res文件加入单元文件中即可。但需注意,名称最好取"W"."WW"等，使第一个字母尽量靠后，以免与主程序的图标顺序颠倒。这样一来，别人在使用你的程序时如果想选择其它图标就有很多选择了。

补充：
　　1.资源类型除上述类型外，还可以字体文件，字符串文件等。

　　2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。

　　下面我们来试验一下：
　　新建一工程，将唯一的一个Form删除，然后修改工程文件。增加一句{$Apptype console},在uses子句中加入mmsystem,并将其它引用单元删掉。将Begin和end之间语句删掉。至此，我们就可和Turbo PASCAL下编程序一样，且还可以调用windows的API和资源。将资源文件----{$R myfist.res}加入。在Begin和end之间写下：

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

　　运行程序，将弹出一个标准DOS窗口，按任意键播放声音文件。是不是很COOL呢!我曾下载过一个播放器，在其安装目录下我发现有一"DOS程序",用鼠标双击它便弹出一个DOS窗口，显示DOS时代特有的画图，并有背景音乐！可能就是用这个方法做的。

　　3.Delphi本身自带了一个叫Image Editor的工具，同样可以编辑资源文本，但和本文的方法比较，可得出下表：

Image	Editor	Brcc32
BMP	只支持16位色	任意色
光标	黑白两色	任意色
ICO	只支持16位色	任意色
AVI	不支持	支持
WAV	不支持	支持
字符串	不支持	支持

　　上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在你的程序携带其它文件，要用的时候释放出来。
　　例如: myexe exefile 'ha1.exe'//脚本文件

　　下面是自定义释放函数ExtractRes，本例中使用如下:

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

　　就把ha1.exe以new.exe为名字保存到C盘根目录下了.

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;