Еще раз об иконках

← →
alexnmsk © (2003-01-23 10:09) [0]

Требуется вытащить иконку из Файла и сохранить на диске:

ExtractIconEx(cFile, IconIndex, pTheLargeIcon, pTheSmallIcon, 1);
TheLargeIcon.Handle := pTheLargeIcon^;
TheSmallIcon.Handle := pTheSmallIcon^;
TheSmallIcon.SaveToFile("c:\small.ico");
TheLargeIcon.SaveToFile("c:\large.ico");

Проблема в том, что иконки в формате 256 цветов сохраняются в 16 цветов. Кто знает, помогите!

← →
alexnmsk © (2003-01-23 11:12) [1]

Неужели никто не ответит?

← →
ADOLF (2003-01-23 17:14) [2]

Загрузить из файла значок в Image1 и копировать в буфер содержание Image1 : clipboard.assign(image1.picture)
Вставить в IconForge и сохранить ico
Самый простой способ ,но не по коду...
Изходник проги для вытазкивания ico из exe есть где то на
http://www.sources.ru/delphi_src1.shtml
я находил

Не по коду - очень неудобно. Нужно свести количесво модулей к минимальному. Где то встречал подобный вопрос, но тогда меня эта проблема не интересовала.

Еще раз об иконках Найти похожие ветки