转帖
1、MyRes.rc文件,内容如下:
sample_jpg JPEG sample.jpg用Brcc32编译MyRes.rc,生成MyRes.Res
2、在你要使用该资源的程序源文件中添加:{$R MyRes.Res}或{$R *.Res}3、引用代码:function GetResourceAsJpeg(const ResName: string): TJPEGImage;
var
Stream: TResourceStream;
begin
Stream := TResourceStream.Create(hInstance, ResName, 'JPEG');
try
Result := TJPEGImage.Create;
Result.LoadFromStream(Stream);
finally
Stream.Free;
end;
end;