| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

EnumResourceTypes типы перебирает, но возвращает ошибку

Riply ©   (2006-10-22 14:02:00) 

function EnumTypesProc(Modul: HModule; pResType: PChar; lPar: LParam): BOOL; stdcall;
begin
ShowMessage(pResType);
Result:= True;
end;

function Enum_ResourceTypes(const Modul: HModule): Boolean;
begin
Result:= EnumResourceTypes(Modul, @EnumTypesProc, 0);
if not Result then ShowMessage(SysErrorMessage(GetLastError));
end;

Почему Enum_ResourceTypes(0) выдает ошибку: "Invalid access to memory location"
Где напортачено ?

---

Riply   (2006-10-22 14:37:00) [1]

Спасибо огромное !

---

Ketmar   (2006-10-22 14:23:00) [2]

ага. да. я проверял с такой заменой. на автомате, видимо. %-)

---

Percent   (2006-10-22 14:22:00) [3]

Где напортачено ?

Вот тут: ShowMessage(pResType);

Замени на:

ShowMessage('$' + IntToHex(integer(pResType), 8));

Посмотри результат.
Сделай выводы.

P.S. Читай справку: "lpszType <...> For standard resource types, this parameter can be one of the following values RT_ACCELERATOR, RT_ANICURSOR <...>"

---

Ketmar   (2006-10-22 14:18:00) [4]

у меня отработало без ошибок.

---

Наверх