|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Проверка наличия ресурса
Всем привет.
Загружаем картинку из ресурса: Код:
Bmp.LoadFromResourceName(HInstance, 'BACKGROUND'); Ne timeas obscurum. Последний раз редактировалось Lothlorien, 12.02.2017 в 19:10. |
#2
|
||||
|
||||
Можно глянуть исходник 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 Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
Этот пользователь сказал Спасибо dr. F.I.N. за это полезное сообщение: | ||
Lothlorien (12.02.2017)
|
#3
|
||||
|
||||
Спасибо за совет!
Ne timeas obscurum. |
#4
|
||||
|
||||
FindResource
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Lothlorien (12.02.2017)
|