资源文件添加图片
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;