使用资源文件：[7]DLL 中的资源文件

本例将把一张 bmp 图片, 以资源文件的方式嵌入 dll, 然后再调用.

第一步: 建一个 DLL 工程, 如图:

然后保存, 我这里使用的名称都是默认的.

第二步: 建一个资源原文件, 如图:

编辑内容如下(路径中的文件一定要存在):img1 BITMAP "c:\temp\test.bmp"然后, 取个名(后缀须是 rc, 我这里取名为 Res.rc), 保存在工程目录下.

第三步: 在 DLL 工程中添加这个资源原文件, 如图:

此时, 工程源文件中会添加一句: {$R 'Res.res' 'Res.rc'}, 我们需要的源文件这样即可:

library Project1;{$R 'Res.res' 'Res.rc'}beginend.然后 Ctrl+F9 编译; 此时在工程目录下会生成我们需要的 Project1.dll.

第四步: 把刚才的 Project1.dll 文件复制到 c:\temp 下.这样过会我们可以通过 c:\temp\Project1.dll 找到这个文件. 至此 DLL 制作完毕.

第五步:重新建一个VCLFormsApplication工程,代码如下:

unitUnit1;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs;

type

TForm1=class(TForm)

procedureFormPaint(Sender:TObject);

end;

var

Form1:TForm1;

implementation

{$R*.dfm}

procedureTForm1.FormPaint(Sender:TObject);

var

h:THandle;

bit:TBitmap;

begin

h:=LoadLibrary('c:\temp\Project1.dll');{载入DLL}

bit:=TBitmap.Create;

bit.LoadFromResourceName(h,'img1');{提取资源}

Canvas.Draw(10,10,bit);{在窗体上绘制图片}

FreeLibrary(h);{载卸DLL}

bit.Free;

end;

end.