Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.03.2017, 00:05   #1
Sabouter2017
Пользователь
 
Регистрация: 10.02.2017
Сообщений: 12
Радость Извлечение иконки из .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, то иконка сохраняется ужатая и не та, что на экране. Как же так??? Что за квантовая неопределенность такая?

Последний раз редактировалось Sabouter2017; 15.03.2017 в 00:12.
Sabouter2017 вне форума Ответить с цитированием
Старый 15.03.2017, 04:54   #2
Filka
Форумчанин
 
Регистрация: 29.10.2015
Сообщений: 272
По умолчанию

http://www.angelfire.com/hi5/delphizeus/saveicons.html
http://www.tkweb.eu/en/delphicomp/kicon.html

Последний раз редактировалось Filka; 15.03.2017 в 04:57.
Filka вне форума Ответить с цитированием
Старый 16.03.2017, 02:56   #3
Sabouter2017
Пользователь
 
Регистрация: 10.02.2017
Сообщений: 12
По умолчанию

Спасибо за ссылки. Сейчас изучаю.
В kicon получается сохранять иконку. Ищу в чем секрет.
Как мне кажется, во внутренней опции OptimalIcon, которая проверяет на размер сначала... буду пробовать.
Sabouter2017 вне форума Ответить с цитированием
Старый 16.03.2017, 03:01   #4
Sabouter2017
Пользователь
 
Регистрация: 10.02.2017
Сообщений: 12
По умолчанию

А может быть даже секрет в двойной конвертации иконки:
Код:
KIcon1.LoadFromModuleByIndex(ODMain.FileName, 0);
IMMain.Picture.Assign(KIcon1);
KIcon := TKIcon(IMMain.Picture.Graphic);
Сначала загружается в переменную KIcon, затем в Image.Picture, а затем обратно в иконку, но уже графику, а не хендл и не иконку как таковую... надо попробовать у себя.
Sabouter2017 вне форума Ответить с цитированием
Старый 16.03.2017, 03:22   #5
Sabouter2017
Пользователь
 
Регистрация: 10.02.2017
Сообщений: 12
По умолчанию

И все-таки нет. Думаю, все дело в загрузке иконки. Видимо надо загружать exe через LoadLibraryEx, затем делать LoadResource через FindResource (искать иконку). Параметры для них изучаю сейчас.
Sabouter2017 вне форума Ответить с цитированием
Старый 16.03.2017, 05:15   #6
Filka
Форумчанин
 
Регистрация: 29.10.2015
Сообщений: 272
По умолчанию

Цитата:
Сообщение от Sabouter2017 Посмотреть сообщение
Спасибо за ссылки.
Пожалуйста.

Может быть, в хозяйстве сгодится:
http://www.delphibasics.info/home/de...yiconextractor
Filka вне форума Ответить с цитированием
Старый 16.03.2017, 08:02   #7
Sabouter2017
Пользователь
 
Регистрация: 10.02.2017
Сообщений: 12
По умолчанию

Цитата:
Сообщение от Filka Посмотреть сообщение
Пожалуйста.

Может быть, в хозяйстве сгодится:
http://www.delphibasics.info/home/de...yiconextractor
Спасибо огромное! Сохраняет нормально. То что надо. И kicons тоже.
Код только уж больно большой. Попробую урезать для себя.

P.S.
Вот в этом месте что-то не так делаю:
Не подскажете, что именно нужно делать с LockIcon ?
CreateIconFromResourceEx же ?
Код:
    DataIcon := LoadResource(Module, hItem);
    LockIcon:=LockResource(DataIcon);

    h:=CreateIconFromResourceEx(LockIcon,SizeofResource(Module,DataIcon),True,$00030000,0,0,LR_DEFAULTCOLOR);

    ico.Handle:=h;
    ico.SaveToFile(icon_path);

Последний раз редактировалось Sabouter2017; 16.03.2017 в 08:39.
Sabouter2017 вне форума Ответить с цитированием
Старый 16.03.2017, 14:36   #8
Filka
Форумчанин
 
Регистрация: 29.10.2015
Сообщений: 272
По умолчанию

https://msdn.microsoft.com/ru-ru/lib...Icon_Resources
http://embarcadero.newsgroups.archiv...904011296.html

Чем модуль DBIconChanger.pas из примера не нравится?
Filka вне форума Ответить с цитированием
Старый 16.03.2017, 15:15   #9
Sabouter2017
Пользователь
 
Регистрация: 10.02.2017
Сообщений: 12
По умолчанию

Цитата:
Сообщение от Filka Посмотреть сообщение
Чем модуль DBIconChanger.pas из примера не нравится?
Нравится. Я же поблагодарил. Только большой получается код для извлечения всего одной иконки. Пытаюсь оставить только самое необходимое.

А вот последний исходник с embarcardo помоему идеальный. Еще пока не проверял. Но код написан красиво и лаконично.

P.S. Здесь есть кнопка "Спасибо" ?

Последний раз редактировалось Sabouter2017; 16.03.2017 в 15:26.
Sabouter2017 вне форума Ответить с цитированием
Старый 16.03.2017, 15:26   #10
Filka
Форумчанин
 
Регистрация: 29.10.2015
Сообщений: 272
По умолчанию

Я просто по приведённому куску кода подумал, что идёт изобретение велосипеда
Filka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Большие иконки иконки exe файла Сидоров Паскаль, Turbo Pascal, PascalABC.NET 12 02.10.2014 17:41
Извлечение иконки из *.exe и вставка в TImage - убрать фон spirit-ua Общие вопросы Delphi 2 20.09.2013 10:25
Извлечение иконки файла и ее подгрузка в Image artemavd Общие вопросы Delphi 1 13.10.2012 22:28
Код не всегда выдает правильный результат Maxx Microsoft Office Excel 2 18.02.2010 15:59
Извлечение иконки из dll JSM Общие вопросы Delphi 2 29.06.2007 21:32