procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TMemoryStream;
begin
  Stream := TResourceStream.Create(HInstance, 'MyBmp', RT_BITMAP);
  try
    {}
  finally
    Stream.Free;
  end;
end;

解决方案 »

  1.   

    我不是要用DELPHI来开发一个建立资源的程序,
    而是用命令行:
    Brcc32 -r XXXX.rc
      

  2.   

    var
      Stream: TCustomMemoryStream;
    //        ~~~~~~~~~~~~~~~~~~~~
    知道呀
      

  3.   

    我是想从一个事先建好的RES中LOAD啊,
    而这个RES是用Brcc32 -r XXXX.rc建出来的!
    其中有内容:#include "ourway.inc"//定义了所有字符串的ID号MainPicture     BITMAP  e:\hinge\picture\bmps\Main.bmp
    SystemBusy      CURSOR  e:\hinge\picture\cursors\Arrow2.cur
    OurwayIcon ICON    e:\hinge\picture\icons\Ourway.ico
    OurwayBmp BITMAP e:\hinge\picture\icons\Ourway.bmpSTRINGTABLE DISCARDABLE
    {
      SYSTEMHINTID, "系统提示"
      DATAMODIFIEDID, "是否保存数据?"

    }字符串的ID号可以用*.INC文件来解决,
    那么图形资源的ID如果解决?
      

  4.   

    music RCDATA "d:\Music\taxi.wav"
    bmp RCDATA "d:\picture\bmp\taxi.bmp"
    jpg RCDATA "d:\picture\jpeg\tax.jpg"
    xxxx RCDATA "d:\xxxx\xx.mp3"//RCDATA表示任何数据
      

  5.   

    TO:游少爷
    你上面的一段中,
    我如何通过LoadFromResourceID来读入BMP
    //注意用:~~~~~~~~~~~~~~~~~~
      

  6.   

    不知道。
    TResourceStream不是很好吗。RS := TResourceStream.Create(Hinstance, 'music', RT_RCDATA);