资源文件添加图片

最新推荐文章于 2023-08-06 10:31:39 发布

weixin_30920091

最新推荐文章于 2023-08-06 10:31:39 发布

阅读量210

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/chengxin1982/archive/2009/05/25/1488735.html

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