| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
FindResource не находит ресурс [D7, WinXP]
Вовка © (2006-03-18 15:52:00)Прекрепил к программе ресурс с названием MyRes, но GetLastError после вызова
FindResource возвращает ошибку: Указанное имя ресурса не найдено в файле образа.
Для компиляции файла ресурса использовал утилиту Brcc32, файл .rc выглядет так:
MyRes RT_RCDATA file.ext
Код:
{$R MyRes.res}
procedure TForm1.Button1Click(Sender: TObject);
var
hRes: THandle;
begin
hRes := FindResource(hInstance,'MyRes',RT_RCDATA);
ShowMessage(SysErrorMessage(GetLastError)); // ошибка!
end;
Что тут не так?
Джо (2006-03-18 16:23:00) [1]> [6] Reindeer Moss Eater © (18.03.06 16:16)
Упс. :)
Джо (2006-03-18 16:22:00) [2]Хм... Кстати, чего ты его в какую-то странную секцию помещаешь? Используй стандартную RCDATA.
Вовка (2006-03-18 16:21:00) [3]> Reindeer Moss Eater © (18.03.06 16:16) [6]
Точно. Спасибо!
Вовка (2006-03-18 16:16:00) [4]hRes = 0
Все проверил... как-будто все правильно
Reindeer Moss Eater (2006-03-18 16:16:00) [5]MyRes RCDATA file.ext
Джо (2006-03-18 16:14:00) [6]
> [3] Джо ©
т.е, не nil, а 0.
Джо (2006-03-18 16:12:00) [7]Кстати, вызово функции неправильный. Ты не проверяещь результат перед вызовом GetLastError. Правильно, например, так:
hRes := FindResource(hInstance,'MyRes',RT_RCDATA);
if hRes = nil then
RaiseLastOSError;
Вовка (2006-03-18 16:09:00) [8]Все равно ошибка...
Джо (2006-03-18 15:55:00) [9]'MYRES'?
| |
