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

[3D Hunter]

Добрый день!

Собственно сабж. Задача вычитки всех ресурсов типа RT_ICON уже решена, получаю HICON и ResID и массив LangIDs каждого ресурса RT_ICON. Но помимо этих данных у иконки есть имя, например 'MY_ICON1". Собственно вопрос: как получить это имя?
Весь MSDN перерыл, правда только раздел "Resource Icons" и все функции, касающиеся ресурсов иконок. Но там тщетно.

Получаю обозначенные 3 параметра с помощью трехзвенки функций-перечислений EnumResourceTypes, EnumResourceNames и EnumResourceLanguages.

Ткните мордой, куда еще копать в плане получения имени ресурса? Может копать какой-то конкретный тип ресурса?

[Пепел Феникса]

EnumResourceNames

поидее она может, если идентификатор не типа это строка.

[3D Hunter]

она возвращает ресурс lpszName типа PChar, который после преобразования DWORD(lpszName) дает индекс ресурса в модуле. Простое присвоение строке iriName:=lpszName дает AV.

Имеете в виду тип реурса RT_STRING? Я подразумеваю, что именем ресурса все не просто в плане наличия множества языковых локалей, собственно для чего и нужна функция EnumResourceLanguages. Т.е. строковое имя ресурса может быть на разных языках, если варианты имен были указано при сборке ресурса. А вообще имя ресурса и его ID это не одно и тоже. Или я не прав?

[Пепел Феникса]

Сообщение от 3D Hunter

Имеете в виду тип реурса RT_STRING?

нет, там написано что если тип передан не идентификатором готовым а строкой то он вернет строковое имя.

[3D Hunter]

поясните пожалуйста, то значит строкой?
Вот код:

type
  //структура ресурса иконки
  _ICON_RES_INFO = record
    iriResID:DWORD;          //ресурсный ID иконки
    iriLangIDs:array of Word;//массив ID'ов языковых локалей
    iriName:string;          //имя ресурса иконки
    iriHIcon:HICON;          //хэндл иконки
  end;
...
//callback-функция поиска ресурсов имен иконок для функции EnumResourceLanguages
function CallBackProc_EnumIconLangs(hModule:HMODULE;
                                    lpszType:LPCTSTR;
                                    lpszName:LPCTSTR;
                                    wIDLanguage:Word;
                                    lParam:LONG_PTR):Boolean; stdcall;
begin
  Result:=True;
  with P_ICON_RES_INFO(lParam)^ do
    begin
      SetLength(iriLangIDs,Length(iriLangIDs)+1);
      iriLangIDs[High(iriLangIDs)]:=wIDLanguage;
    end;
end;

//callback-функция поиска ресурсов иконок для функции EnumResourceNames
function CallBackProc_EnumIconNames(hModule:HMODULE;
                                    lpszType:LPCTSTR;
                                    lpszName:LPTSTR;
                                    lParam:LONG_PTR):Boolean; stdcall;
var
  LFindIcon:HRSRC;
  LLoadIcon:HGLOBAL;
  LLockIcon:LPVOID;
  LpIconResInfo:P_ICON_RES_INFO;
begin
  Result:=True;

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

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

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

  //пытаемся извлечь хэндл иконки и ее имя в ресурсе
  New(LpIconResInfo);
  try
    with LpIconResInfo^ do
      begin
        //извлекаем ресурсовый ID иконки
        iriResID:=WORD(lpszName);

        //извлекаем ID'ы языковых локалей
        if (not EnumResourceLanguages(hModule,lpszType,lpszName,ENUMRESLANGPROC(@CallBackProc_EnumIconLangs),Integer(LpIconResInfo))) then
          Abort;

        //извлекаем ресурсное имя иконки
        iriName:=lpszName;//здесь случается AV 

        //извлекаем ресурсный хэндл иконки
        iriHIcon:=CreateIconFromResourceEx(LLockIcon,SizeofResource(hModule,LLoadIcon),True,$00030000,0,0,LR_DEFAULTCOLOR);
        if (iriHIcon=0) then
          Abort;
      end;
  except
    on E:Exception do
      begin
        ShowMessage(E.Message);
        Dispose(LpIconResInfo);
        Exit;
      end;
  end;

  //добавили хэндл иконки в список
  TList(lParam).Add(LpIconResInfo);
end;

//заполняет список AList иконками, извлеченными из файла AFileName (если удалось, то true)
function EnumIcons(const AFileName:string;
                   const AList:TList):Boolean;
var
  LModule:HMODULE;
begin
  Result:=False;

  //загружаем модуль как набор данных
  LModule:=LoadLibraryEx(PChar(AFileName),0,LOAD_LIBRARY_AS_DATAFILE);
  if (LModule=INVALID_HANDLE_VALUE) then Exit;

  //ищем все иконки в модуле и помещаем в список
  try
    if (not EnumResourceNames(LModule,RT_ICON,ENUMRESNAMEPROC(@CallBackProc_EnumIconNames),Integer(AList))) then Exit;
    Result:=True;
  finally
    FreeLibrary(LModule);
  end;
end;

[3D Hunter]

Понимаю, что нужно вместо lpszName = PChar(Integer) подставить символ # в имя, чтобы возвращалось имя... Ситуация в том, что я не знаю имен ресурсов иконок. Поэтому делаю перечисление. Индексы ресурсов я получил. Как теперь извлечь имена этих же ресурсов?
Например, когда мы пишем rc-файл для компиляции ресурса, обычно делаем так:

MY_ICON1 ICON "C:\icon1.ico"

В данном случае "MY_ICON1" - это и есть имя ресурса. Его и нужно получить.

[3D Hunter]

Неужели никто не сталкивался с этим вопросом?
Почему ResHacker видит имена ресурсов иконок? Откуда он их берет?
1.png

[Пепел Феникса]

If IS_INTRESOURCE(lpszType) is TRUE, then lpszType specifies the integer identifier of the given resource type. Otherwise, it is a pointer to a null-terminated string. If the first character of the string is a pound sign (#), then the remaining characters represent a decimal number that specifies the integer identifier of the resource type. For example, the string "#258" represents the identifier 258.

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[3D Hunter]

Я читал этот кусок раз 30 наверно точно. Можно на строчке кода вызова функции показать? Я уже проверял, нет разницы между RT_ICON и '#3' в параметре lpszType. Тогда в чем разница?

[waleri]

Сообщение от 3D Hunter

Тогда в чем разница?

Разницу между 3 и "3" понимаете? Первое это число, второе это строка текста.

if (IS_INTRESOURCE(lpName))
   LPCTSTR name = itoa((int) lpName);
else
   LPCTSTR name = lpName;