Как получить иконку IDI_EXCLAMATION при размере шрифтов 150%

[Pantalone]

Дело в следующем. В приложении вместо системных MsgBox используются свои собственные сообщения, но иконки берутся системные таким способом:

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

Dim hIcon As Long
Dim hIcon2 As Long
Dim hIcon3 As Long
'так
hIcon = LoadIcon(0, IDI_EXCLAMATION)
DrawIcon Picture1.hDC, 0, 0, hIcon
'или так
hIcon2 = LoadIcon(0&, IDI_EXCLAMATION)
DrawIconEx Picture2.hDC, 0, 0, hIcon2, 0, 0, 0&, 0&, DI_NORMAL
'еще вот так
hIcon3 = LoadIcon(0&, IDI_EXCLAMATION)
DrawIconEx Picture3.hDC, 0, 0, hIcon3, 48, 48, 0&, 0&, DI_NORMAL

Проблема в том, что на 7 винде при размере системных шрифтов 150% иконки таким макаром рисуются мелкие и растягиваются, в то время, как системное MsgBox "Test", vbExclamation выдает нормальную крупную.
Прилагаю тестовый примерчик, для проверки надо увеличить шрифт системы до 150% и нажать тестовую кнопку для вызова системного сообщения или можно со скриншотом сравнить, который в главное окно вставил. Выдранные иконки будут мелкими, две из них растянуты до 48, а системная в сообщении будет крупная и нормальная.
Есть идеи, как получить крупную иконку программно?

Скриншот: http://savepic.ru/10039488.jpg

[VBTerminator]

Попробуй сделать следующее:

1. Извлечь так называемую icon directory, то есть список различных вариантов одной и той же иконки. Адрес на неё можно получить с помощью обычной LoadResource, считая возвращаемый HGLOBAL за GRPICONDIR.
2. Перебрать содержимое GRPICONDIR и выбрать иконку нужного размера. Или же, как вариант, воспользоваться уже готовой функцией LookupIconIdFromDirectoryEx. В любом случаке мы получим nId.
3. Получить описатель нужного варианта из nId с помощью FindResource(0, nId, RT_ICON).
4. Породить изображение на основе ресурсного описателя: LoadResource.

Источник: статья Реймонда Чена «How do I override the default icon selection algorithm?».

[Pantalone]

Благодарю за ответ. Получилось проще через ExtractIconEx и USER32.DLL, судя по Dependency Walker именно оттуда их тягает LoadIcon. Надеюсь, что USER32.DLL есть во всех системах.

[VBTerminator]

Надеюсь, что USER32.DLL есть во всех системах.

Конечно есть! Ровно как и прочие библиотеки, чьи имена (в частности) заканчиваются на «32»: KERNEL32, GDI32, ADVAPI32, SHELL32, COMCTL32, COMDLG32, OLEAUT32.

[Pantalone]

Выяснилось, что способ помогает только до 150%. При масштабе 200% иконка снова кривая, значит User32 содержит небольшие размеры.