示例：

  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;