Image1.Picture.Bitmap.Handle :=LoadBitmap(hInstance,’资源标识符’);
end;
注：如果位图没有装载成功，程序仍旧执行，但是Image将不再显示图片。可以根据LoadBitmap 函数的返回值判断是否装载成功，如果装载成功返回值是非0，如果装载失败返回值是0。
另外一个存取显示位图的方法如下：
procedure TfrMain.btnLoadPicClick(Sender: TObject);
begin
Image1.Picture.Bitmap.LoadFromResourceName(hInstance,’资源标识符’);
end;
2。存取资源文件中的光标
Screen.Cursors[]是一个光标数组，使用光标文件我们可以将定制的光标加入到这个属性中。因为默认的光标在数组中索引值是0，所以除非想取代默认光标，最好将定制的光标索引值设为1。
procedure TfrMain.btnUseCursorClick(Sender: TObject);
begin
Screen.Cursors[1] :=LoadCursor(hInstance,’资源标识符’);
Image1.Cursor :=1;
end;
3。存取资源文件中的图标
将图标放在资源文件中，可以实现动态改变应用程序图标。
procedure TfrMain.LoadIconClick(Sender: TObject);
begin
Application.Icon.Handle := LoadIcon(hInstance,’资源标识符’);
End;
4。存取资源文件中的AVI
在工程中添加一TAnimate控件(在Win32控件面板上)，在需要的地方加入：
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
