示例文本
文件(名为myres.rc):
MYPNG RCDATA mypng.png
添加到项目:
{$R 'myres.res' 'myres.rc'}
在运行时加载的示例:
uses
PngImage;
var
Png: TPngImage;
begin
Png := TPngImage.Create;
try
Png.LoadFromresourceName(HInstance,'MYPNG');
Image1.Picture.Graphic := Png; // Image1: timage on the form
finally
Png.Free;
end;
end;