Извлечь иконку из EXE?

[Алексей_C]

А у вас какая версия Delphi?

[Slovinsky]

7-я. Это не в этом дело. Дело в вашем ресурсе из exe. Кстати, вы пишите, что как-то получаете сами иконку, только она 16-цветная. Конвертация в 16 цветов по идее происходит только при сохранении, так что если вам удалось получить дескриптор иконки своим способом, просто передайте его в WriteIcon32.

[BOBAH13]

Приветствую. Дело обстоит практически так же. Проблема вот в чем, вытаскивать иконку причем самого большого размер которая имеется в наличии из любого файла в системе. Следующий код работает только или 16 или 32 пикселя в размере. Хотелось бы получать самые большие иконки приложений. У кого какие предложения? Обрыскал интернет незнаю уже как это возможно. Не ужели прийдется писать велосипед )) разгребать формат ico. Лень как то, хотя реально.

function TForm1.ExtractIcon(const FileName: String): TIcon;
var
  ImageList: TImageList;
  FileInfo: TSHFileInfo;
begin
  ImageList := TImageList.Create(NIL);
  ImageList.Height := 32;
  ImageList.Width := 32;
  FillChar(FileInfo, Sizeof(FileInfo), 0);
  ImageList.ShareImages := True;
  ImageList.Handle := SHGetFileInfo(
    PChar(FileName),
    SFGAO_SHARE,
    FileInfo,
    SizeOf(FileInfo),
    SHGFI_LARGEICON or SHGFI_SYSICONINDEX
  );
  Result := TIcon.Create;
  ImageList.GetIcon(FileInfo.iIcon, Result);
  ImageList.Free;
end;