Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Riply ©   (2006-10-22 14:02) [0]

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"
Где напортачено ?

---

← →
Ketmar ©   (2006-10-22 14:18) [1]

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

---

← →
Percent   (2006-10-22 14:22) [2]

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

Вот тут: 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:23) [3]

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

---

← →
Riply ©   (2006-10-22 14:37) [4]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.041 c