Как правильно сохранить иконку?

← →
Jetus © (2004-10-17 23:27) [0]

Мастера! Вытаскиваю из ехе-файла иконку (красивую такую) вот так:
I.Handle := ExtractIcon(hInstance, PChar(ExeFileName), NomberOfIcon);

а когда сохраняю

I.SaveToFile("c:\1.ico");

то иконка СТРАШНАЯ (меньше цветов)! Как правильно сохранить????

← →
-=SS=- © (2004-10-19 11:42) [1]

Var I:TIcon; NomberOfIcon:Cardinal; Begin NomberOfIcon:=0; I:=TIcon.Create; I.Height:=32; I.Width:=32;

Но вообще ты наверное вытягиваешь первую иконку, а она действительно может быть маленькой и с меньшим количеством цветов. Попробуй пересмотреть все.

← →
abc (2004-10-19 19:05) [2]

сохранении иконок 32х32 в 256-цветном формате
http://delphiworld.narod.ru/base/save_32_ico.html

abc, спасибо за ссылку!
-=SS=- , любая иконка, сохраненная методом SaveToFile будет иметь размер 766 байт, то есть 16-цветная :( Может есть еще идеи?

Как правильно сохранить иконку? Найти похожие ветки