如何用DLL做资源文件？例如把用到的图片放如DLL里，用到时从中调用！

Question

先用文本编辑器制作一个.rc文件，内容如下（你可根据自己的情况修改）
Cut Bitmap e:\Image\Bmp\Cut.bmp
Copy Bitmap e:\Image\Bmp\Copy.bmp
Paste Bitmap e:\Image\Bmp\Paste.bmp
Cool RCDATA "E:\delphi6\Demos\CoolStuf\Cool.avi"
将文件保存为MyResource.rc,将其保存在和dll所在的源文件目录下,假设为e:\myprojects\dll，然后用如下方法编译为资源文件,点击开始--运行，在编辑框中输入
e:\delphi6\bin\brcc32.exe e:\myprojects\dll\MyResource.rc
然后点击ok就生成了res文件。
在dll的源文件中加入该资源文件
{$R MyResource.res}
然后编译dll文件.在可执行文件中引用资源
procedure TForm1.Create(Sender: TObject);
var
  hDll: THandle;
  RS: TResourceStream;
begin
  hDll ;= LoadLibrary(PChcr('xxxxx.dll'));
  if hDll <> 0 then
  begin
    RS := TResourceStream.Create(hDll, 'Cool', RT_RCDATA);
    RS.SaveToFile('c:\cool.avi');
    Animate1.FileName := 'c:\Cool.avi';
    Animate1.Active := true;
    //下面以sb开头的为TSpeedButton;
    sbCut.Glyph.Handle:=LoadBitmap(FResourceDll,Pchar('Cut'));
    sbCopy.Glyph.Handle:=LoadBitmap(FResourceDll,Pchar('Copy'));
    sbPaste.Glyph.Handle:=LoadBitmap(FResourceDll,Pchar('Paste'));
    RS.Free;
  end;
  FreeLibrary(hDll);
end;