发信人: cn_prince(欢喜王子)
整理人: teleme(2001-06-28 19:47:19), 站内信件
|
创建并编译一个空的DLL工程，在这个工程中包含你的.res资源文件。
示例：
library ResTest;
uses
SysUtils;
{$R MYRES.RES}
begin
end.
使用这个纯资源DLL时，只需要简单地载入这个DLL，就可以使用你想使用的资源。
示例：
{$IFDEF WIN32}
const BadDllLoad = 0;
{$ELSE}
const BadDllLoad = 32;
{$ENDIF}
procedure TForm1.Button1Click(Sender: TObject);
var
h : THandle;
Icon : THandle;
begin
h := LoadLibrary('RESTEST.DLL');
if h <= BadDllLoad then
ShowMessage('Bad Dll Load')
else begin
Icon := LoadIcon(h, 'ICON_1');
DrawIcon(Form1.Canvas.Handle, 10, 10, Icon);
FreeLibrary(h);
end;
end;
----
prince |
|