Получить имена ресурсов иконок из PE-файла

[3D Hunter]

Вот ресурсовый dll-файл:
resource.rar

[waleri]

Ну как я и думал - у RT_ICON имен нет, у RT_GROUP_ICON имена...

[3D Hunter]

Поясните пожалуйста. Можно кусок кода, поясняющий суть?

[waleri]

Есть два вида ресурсов - RT_ICON и RT_GROUP_ICON.
Вы смотрите на RT_ICON - там имен нет.
См. сообщение #20

[3D Hunter]

waleri, огромное спасибо! Точно заработало! Правда не представляю откуда вообще берется данная информация. Я основывался на статье по этой ссылке: resources.
И тогда возникает вопрос: как правильно соотнести индекс ресурса иконки RT_ICON с именем этого ресурса RT_GROUP_ICON? Фактически, я вынужден теперь вызывать дважды

EnumResourceNames(LModule,RT_GROUP_ICON,ENUMRESNAMEPROC(@CallBackProc_EnumIconNames),Integer(AList)));

и

EnumResourceNames(LModule,RT_ICON,ENUMRESNAMEPROC(@CallBackProc_EnumIconNames),Integer(AList)))

Подскажете, как поступить в данной ситуации?

[waleri]

Каждая запись в RT_GROUP_ICON содержит ID из RT_ICON.
Ref:
http://msdn.microsoft.com/en-us/library/ms997538.aspx

[3D Hunter]

Все, разобрался! Получилось. Спасибо огромное за помощь!
И последний вопрос по этой теме, скорее символичный. А может и нет. У перечисления имен ресурсов есть функция перечисления языковых локалей (LangIDs). Вопрос: изъятые таким образом имена ресурсов иконок могут иметь имена на других языках? По какому критерию извлекается юникод-строка с именем ресурса? Используется ли языковая локаль ресурса?

[waleri]

Юникод строка с именем извлекается по критерию "тип" ресурса. Далее для ресурса этого типа и с этим именем есть вариации языков.
Каждый ресурс идентифицируется по типу, имени и языку, другое дело, что при работе с ресурсами языком мы обычно не занимаемся, т.е. мы принимаем, что все ресурсы с одним типом и именем это один и тот же ресурс.

[3D Hunter]

И возник снов вопрос: при попытке считывания shell32.dll на 17й иконке выдает ошибку доступа к памяти, а точнее ее lpszName=0 вместо ожидаемого 17. И все последующие хэндлы иконок RT_ICON равны нулю тоже.
Вот код:

  //структура RT_GROUP_ICON
  //http://blogs.msdn.com/b/oldnewthing/archive/2012/07/20/10331787.aspx
  GRPICONDIR = packed record
    idReserved:Word;//зарезервировано, всегда 0
    idType:Word;    //тип образа: 1 - иконка, 0 - курсор
    idCount:Word;   //число иконок типа RT_ICON
  end;
  PGRPICONDIR = ^GRPICONDIR;

  //структура RT_ICON
  //http://blogs.msdn.com/b/oldnewthing/archive/2012/07/20/10331787.aspx
  GRPICONDIRENTRY = packed record
    bWidth:Byte;       //ширина иконки в пикселях (если больше 255, то 0)
    bHeight:Byte;      //высота иконки в пикселях (если больше 255, то 0)
    bColorCount:Byte;  //число цветов (если больше 255, то 0)
    bReserved:Byte;    //зарезервировано, всегда 0
    wPlanes:Word;      //?
    wBitCount:Word;    //глубина цвета, в битах
    dwBytesInRes:DWORD;//размер в байтах битового образа иконки
    nId:Word;          //ID ресурса иконки
  end;
  PGRPICONDIRENTRY = ^GRPICONDIRENTRY;
...
//callback-функция поиска ресурсов иконок для функции EnumResourceNames
function _EnumResNameProc(hModule:HMODULE;
                          lpszType:LPCTSTR;
                          lpszName:LPTSTR;
                          lParam:LONG_PTR):Boolean; stdcall;
var
  LFindGroupIcon,LFindIcon:HRSRC;
  LLoadGroupIcon,LLoadIcon:HGLOBAL;
  LpLockGroupIcon,LpLockIcon:LPVOID;
  i,LIconCount:Word;
  LResName:string;
  LHIcon:HICON;
begin
  Result:=True;

  //извлекаем имя ресурса иконки
  try
    if (HiWord(DWORD(lpszName))<>0) then
      LResName:=lpszName
    else
      LResName:=IntToStr(LOWORD(lpszName));
  except
    LResName:='<unknown>';
  end;

  //находим ресурс групповой иконки
  LFindGroupIcon:=FindResource(hModule,lpszName,lpszType);
  if (LFindGroupIcon=INVALID_HANDLE_VALUE) then Exit;

  //загружаем ресурс групповой иконки
  LLoadGroupIcon:=LoadResource(hModule,LFindGroupIcon);
  if (LLoadGroupIcon=INVALID_HANDLE_VALUE) then Exit;

  //берем указатель на данные ресурса групповой иконки
  LpLockGroupIcon:=LockResource(LLoadGroupIcon);
  if (LpLockGroupIcon=nil) then Exit;

  //узнаем число иконок и сдвигаем указатель на первую структуру RT_ICON
  LIconCount:=PGRPICONDIR(LpLockGroupIcon)^.idCount;
  LpLockGroupIcon:=LPVOID(DWORD(LpLockGroupIcon)+SizeOf(GRPICONDIR));

  //извлекаем ресурсы иконок
  for i:=1 to LIconCount do
    with PGRPICONDIRENTRY(LpLockGroupIcon)^ do
      try
        //находим ресурс иконки
        LFindIcon:=FindResource(hModule,MakeIntResource(nId),RT_ICON);
        if (LFindIcon=INVALID_HANDLE_VALUE) then Continue;

        //загружаем ресурс иконки
        LLoadIcon:=LoadResource(hModule,LFindIcon);
        if (LLoadIcon=INVALID_HANDLE_VALUE) then Continue;

        //берем указатель на данные ресурса иконки
        LpLockIcon:=LockResource(LLoadIcon);
        if (LpLockIcon=nil) then Continue;

        //извлекаем ресурсный хэндл иконки
        LHIcon:=CreateIconFromResourceEx(LpLockIcon,SizeofResource(hModule,LLoadIcon),True,$00030000,0,0,LR_DEFAULTCOLOR);
        if (LHIcon=0) then Continue;

        //создали и добавили структуру в список
        TObjectList(lParam).Add(TIconResource.Create(nId,LResName,LHIcon));
      finally
        //взяли указатель на следующую структуру RT_ICON
        LpLockGroupIcon:=LPVOID(DWORD(LpLockGroupIcon)+SizeOf(GRPICONDIRENTRY));
      end;
end;

Может я неверно хожу по структурам по указателям?

[3D Hunter]

Копаю уже второй день и ничего не накопал. Вот вроде же все верно построено в коде. На мелких ресурсных модулях работает нормально, а на "эталонном" shell32.dll отказывается. В чем может быть особенность? Почему после 16го индекса ресурса RT_GROUP_ICON сразу идет ресурс с индексом #0, а после него уже 17, 18...и до конца, но после нуля все хендлы иконок RT_ICON, возвращаемых методом

CreateIconFromResourceEx(LpLockIcon,SizeofResource(hModule,LLoadIcon),True,$00030000,0,0,LR_DEFAULTCOLOR);

поголовно равны нулю.