Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Извлечение иконки из .exe (какой индекс?)

Автор: Sabouter 15.3.2017, 01:36

Здравствуйте!
Уже 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;

Код


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;

Код


  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, то иконка сохраняется ужатая и не та, что на экране. Как же так??? Что за квантовая неопределенность такая?

Автор: Alexeis 16.3.2017, 21:12

Иконка в ресурсах разбивается на группу иконок RT_GROUP_ICON. Если оригинальный ico мог содержать десяток различных кадров от 16х16 до 256х256 то в ресурсах это будет 1 RT_GROUP_ICON запись в ресурсе не содержащая кадров и 10 отдельных иконок, каждый из которых нужно извлекать по отдельности.
Поэтому самый правильный способ это загрузить длл или экзе через LoadLibrary и извлечь иконку как ресурс.
Так же как будто этот ресурс хранится в твоем экзешнике только в качестве базового адреса использовать значение, которое возвращает LoadLibrary
Причем нужно указать правильный кадр (имеют номера) сами иконки будут в разделе RT_ICON хранится.

Детальное описание есть тут https://msdn.microsoft.com/en-us/library/ms997538.aspx параграф DLL and EXE Files

Кроме того https://blogs.msdn.microsoft.com/oldnewthing/20120720-00/?p=7083