|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Извлечение иконки из .exe (какой индекс всегда правильный?)
Здравствуйте!
Уже 2 дня не могу найти решение проблемы. Вопросы никогда по программированию не задавал, хотя и занимаюсь программированием (для себя) уже много лет. Но уперся в тупик. Нужно извлечь и сохранить ПРАВИЛЬНУЮ иконку из exe файла. Если у кого есть решение, то дальше можно не читать, просто поделитесь. Но здесь есть проблема. При извлечении и сохранении иконки, извлекается ее кривая ужатая версия. Возможная причина - Index = 0 не всегда подходит для всех exe. Но как тогда угадать номер индекса. А ведь при ручном создании ярлыка в Windows, система отображает на ярлыке правильную иконку. Откуда она знает правильный индекс? Вот неудачные методы, которые я использовал для изъятия: 1: Код:
var FileInfo: SHFILEINFO; icn: TIcon; begin SHGetFileInfo(PChar('Путь.exe'), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON); // также пробовал SHGetFileInfo(PChar('Путь.exe'), 0, FileInfo, SizeOf(FileInfo), SHGFI_LARGEICON); icn := TIcon.Create; icn.Handle := FileInfo.hIcon; icn.SaveToFile('Путь\иконка.ico'); Image1.Picture.Assign(icn); // либо Image1.Picture. end; 2: Код:
var h: HIcon; idx: word; begin SHGetFileInfo(PChar(fS), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON); // также пробовал SHGetFileInfo(PChar(fS), 0, FileInfo, SizeOf(FileInfo), SHGFI_LARGEICON); idx := 0; h := ExtractAssociatedIcon (hInstance, Pchar('Путь.exe'), idx); // либо h := ExtractIcon(HInstance, Pchar('Путь.exe'), idx); // В чем разница, хз Image1.Picture.Assign(icn); // либо Image1.Picture.Icon.Handle := h; Image1.Picture.SaveToFile('Путь\иконка.ico'); // лабо Image1.Picture.Icon.SaveToFile('Путь\иконка.ico'); end; 3: Код:
with TIcon.Create do try Handle := ExtractAssociatedIcon (hInstance, Pchar('Путь.exe'), 0); // Либо ExtractIcon(HInstance, Pchar('Путь.exe'), 0); SaveToFile('Путь\иконка.ico'); finally Free; end; Еще фишка в том, что при Image1.Picture.Assign(icn); или Image1.Picture.Icon := icn.Handle; иконка на форме в Image1 отображается вполне себе нормально. Но если попытаться ее сохранить через Image1.Picture.SaveToFile или через Image1.Picture.Icon.SaveToFile, то иконка сохраняется ужатая и не та, что на экране. Как же так??? Что за квантовая неопределенность такая? |