[Lothlorien]

Всем привет.

Загружаем картинку из ресурса:

Код:

Bmp.LoadFromResourceName(HInstance, 'BACKGROUND');

Если картинки с названием BACKGROUND нет в ресурсах, то вылетит ошибка. Наличие файла легко проверить функцией SysUtils.FileExists(), а как можно сделать это для ресурса?

[dr. F.I.N.]

Можно глянуть исходник TResourceStream:

Код:

procedure TResourceStream.Initialize(Instance: THandle; Name, ResType: PChar);

  procedure Error;
  begin
    raise EResNotFound.CreateFmt(SResNotFound, [Name]);
  end;

begin
  HResInfo := FindResource(Instance, Name, ResType);
  if HResInfo = 0 then Error;
  HGlobal := LoadResource(Instance, HResInfo);
  if HGlobal = 0 then Error;
  SetPointer(LockResource(HGlobal), SizeOfResource(Instance, HResInfo));
end;

Очевидно, Вам интересна функция FindResource

[Lothlorien]

Спасибо за совет!

[NumLock]

FindResource