资源文件添加图片

1.先在记事本里写（这里假设你的图片名为"bmpname.bmp"，你可以改成别的什么文件名） ：
  MY_BMP_RES BITMAP "bmpname.bmp" 
  再保存为名为 “newres.rc”文件
2. 在Dos状态下，敲入（注意Brcc32命令的路径，如果你不知道路径你就“查找”一下，OK？）：
  brcc32 newres.rc
  执行成功后，你就可以得到newres.res文件，它就是你编译的资源文件，知道了吧。
3.在程序里调用：
unit Unit1;
interface
...
implementation
{$R *.DFM}
{$R newres.res}  // add this line!

procedure TForm1.FormCreate(Sender: TObject);
var
 BitMap1 : TBitMap;
begin
  BitMap1 := TBitMap.Create;
  try
    BitMap1.LoadFromResourceName(HInstance,'MY_BMP_RES');
    Canvas.Draw(12,12,BitMap1);
  finally
    BitMap1.Free;
  end;
end;

转载于:https://www.cnblogs.com/chengxin1982/archive/2009/05/25/1488735.html