资源文件添加图片

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值