FindResource не находит ресурс

← →
Вовка (2006-03-18 15:52) [0]

Прекрепил к программе ресурс с названием 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 15:55) [1]

"MYRES"?

← →
Вовка (2006-03-18 16:09) [2]

Все равно ошибка...

← →
Джо © (2006-03-18 16:12) [3]

Кстати, вызово функции неправильный. Ты не проверяещь результат перед вызовом GetLastError. Правильно, например, так:

hRes := FindResource(hInstance,"MyRes",RT_RCDATA); if hRes = nil then RaiseLastOSError;

← →
Джо © (2006-03-18 16:14) [4]

> [3] Джо ©

т.е, не nil, а 0.

← →
Вовка (2006-03-18 16:16) [5]

hRes = 0
Все проверил... как-будто все правильно

← →
Reindeer Moss Eater © (2006-03-18 16:16) [6]

MyRes RCDATA file.ext

← →
Вовка (2006-03-18 16:21) [7]

Хм... Кстати, чего ты его в какую-то странную секцию помещаешь? Используй стандартную RCDATA.

FindResource не находит ресурс Найти похожие ветки