创建纯资源dll

时间:2010-01-27 09:04:06  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读: border="1">  library ResTest;usesSysUtils;{$R MYRES.RES}beginend.    使用这个纯资源DLL时,只需要简单地载入这个DLL,就可以使用你想使用的资源。    示例:
  正文:

创建并编译一个空的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;

创建纯资源dll》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/2010-01-27/12453.html


关键字:

关于《创建纯资源dll》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td