VPF::Извлечь иконку из EXE - Форум программистов

Visp

Дата 18.1.2007, 04:34 (ссылка)

(нет голосов)

Загрузка ...

Программер

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 21.8.2006

Репутация: нет
Всего: нет

нужно вытянуть из EXE True Color иконку
по примеру из DRKB делаю так

Код


var 
  ic: TIcon; 
begin 
  count := ExtractIcon(Handle, PChar(FileName), w);
  ic := TIcon.Create; 

if count>0 then begin
    ic.Handle := ExtractIcon(Application.Handle, 
      PChar(FileName), 0); 
end;
end;

и получаю 256-цветную иконку, хотя точно знаю что в тестовом EXE есть True Color, как её вытянуть
smile

VICTAR

Дата 18.1.2007, 05:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Проверил этот код на нескольких exe - все время получаю иконки 32х32 TrueColor (при наличии других форматов).

Visp

Дата 18.1.2007, 05:43 (ссылка)

(нет голосов)

Загрузка ...

Программер

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 21.8.2006

Репутация: нет
Всего: нет

у меня проблемма оказалась не в это коде а здесь

Код


ic.SaveToFile('temp.ico');
ic.Destroy;
//.................
//....Много строк
//.................
Icon.LoadFromFile('temp.ico');

Это сообщение отредактировал(а) Visp - 18.1.2007, 05:57

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »