Извлечение иконок ... больших

[Alexanbar]

К сожалению, ExtracticonEx, ShGetFileInfo позволяют извлекать иконки только 16х16 и 32х32, а мне нужно 48х48 хотя бы. Вроде бы для этой цели нужно использовать LoadImage.

Код: Выделить всё

Sz=48
hInst& = LoadLibrary("c:\program files\internet explorer\iexplore.exe")
hl& = LoadImageBynum(hInst, 32529, IMAGE_ICON, Sz, Sz, LR_DEFAULTCOLOR)
DestroyIcon hl
FreeLibrary hInst


Всё бы хорошо, но как узнать номер иконки, который нужно ввести (в коде - это 32529).
В реестре, например, в качестве DefaultIcon для к-л файла указывается не тот номер, который нужен для LoadImage, а просто порядковый номер иконки (1,2....).

Иными словами, нужна функция, которая из 1 сделает 32528 (числа взяты для IE).

[lister]

А если пойти другим путем:

1) ImageList_Create (48x48xColourDepth)
2) ExtractIcon или ExtractAssociatedIcon
3) ImageList_AddIcon
4) ImageList_Draw или ImageList_DrawEx

Кстати, в Висте иконки 256х256. Пора и к ним готовиться

[Alexanbar]

Дело в следующем. ExtractIconEx может выдать hIcon только для иконок 16х16 или 32х32.
Отрисовать можно иконки любого размера. Скажем, иконку 32х32 ратянуть на 48х48.
А я хочу, чтобы иконка была нормальная, т.е. та, что есть в ресурсе (если есть), а не растянутая.
Похоже, нужно перечислить все иконки с помощью EnumResourceName, и запомнить номер иконки с заданным порядковым номером.
Может быть, есть другие варианты?

[lister]

А я говорю про простую ExtractIcon (без Ex)
Хотя... надо проверять. Точно не помню, что она вернет...

---
Проверил. Возвращает 32х32. До 48х48 - растягивает
Наверное, действительно через EnumResourceName

[Alexanbar]

ExtractIcon вернёт хэндл одной иконки(не помню, 32х32 или 16х16 )