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]

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

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

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