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