VPF::Как вытащить из exe-ншика иконку?

Malloc

Дата 6.12.2005, 20:31 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 16.8.2005
Где: Челябинск, ЧМЗ

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

Дан путь к exe-шному файлу (например, D:\myprogram.exe ). Как вытащить из него иконку и поместить на форму в TImage?

sexton

Дата 7.12.2005, 09:07 (ссылка)

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

Загрузка ...

sexton=Пономарь (eng)

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

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

Уточни:
Иконка должна выдираться средствами Builder или речь о том, чтобы выдрать иконку из существующего экзешника и запихать в свою прогу? Если последнее, то для выдирания иконки можно использовать какой-нить ResHacker...

--------------------

Поставить +

ЖЖ
Рассылка Рассылок

Mysterio

Дата 7.12.2005, 09:56 (ссылка)

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

Загрузка ...

Планирующий

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

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

Хе

. Алгоритм,конечно,дубоват, но прост и доступен каждому. smile

Запускаешь какую-нть оболочку типа Проводник,или где ты эту иконку увидел.(тут зависит от требуемых размеров[32x32 или 16x16]).Потом тыкаешь Alt+PrintScreen(или просто PrntScr),сохраняешь то что сграбилось в любом редакторе Image в любой стандартный файл рисунков,потом натравливаешь на него свою TImage. Средствами Builder это будет выглядеть намного сложнее.

Gala

Дата 7.12.2005, 12:29 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот код из моей программы

Код


  HICON I;
  Index=0;
  if(OpenDialog1->Execute())
   {
    FilePath->Caption=OpenDialog1->FileName;
    if(FilePath->Canvas->TextWidth(OpenDialog1->FileName)<FilePath->Width)
     {
      FilePath->ShowHint=false;
     }
    else
     {
      FilePath->Hint=OpenDialog1->FileName;
      FilePath->ShowHint=true;
     }
    Limit=(long)ExtractIcon(HInstance,OpenDialog1->FileName.c_str(),-1);
    Label1->Caption="Icons count: "+IntToStr((int)Limit);
    if(Limit>1)
     {
      PrevBtn->Enabled=true;
      NextBtn->Enabled=true;
     }
    else
     {
      PrevBtn->Enabled=false;
      NextBtn->Enabled=false;
     }
    I = ExtractIcon(HInstance,OpenDialog1->FileName.c_str(),Index);
    if((int)I>1)
     {
      Image1->Picture->Icon->Handle=I;
      Image1->Left=(226-Image1->Width)/2;
      Image1->Top=(140-Image1->Height)/2;
      SizeLabel->Caption="Icon size: "+IntToStr(Image1->Width)+"x"+IntToStr(Image1->Height);
      NumLabel->Caption="Icon index: "+IntToStr((int)Index);
      SaveBtn->Enabled=true;
      SaveItem->Enabled=true;
     }
    else
     {
      Image1->Left=0;
      Image1->Top=0;
      Image1->Picture->Assign(Image2->Picture);
      SaveBtn->Enabled=false;
      SaveItem->Enabled=false;
      SizeLabel->Caption="Icon size:";
      NumLabel->Caption="Icon index:";
     }
   }
 }

Если хочещь подробние напиши
[email protected]
пришлю весь проект.

Malloc

Дата 7.12.2005, 18:22 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 16.8.2005
Где: Челябинск, ЧМЗ

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

Gala, похоже, это то, что мне нужно: нужно было во время выполнения моей программы создать список из других программ и иконок к ним. Спасибо.

Partizan

Дата 19.12.2005, 03:04 (ссылка)

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

Загрузка ...

Let's do some .NET

Профиль
Группа: Модератор
Сообщений: 2828
Регистрация: 19.12.2005
Где: Санкт-Петербург

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

Есть ещё один вариант с использованием пространства имён оболочки Windows explorer.exe....и всё получится гораааздо короче...
з.ы. Кури пример virtualListView из папки с примерами...

--------------------

СУВ,
Partizan.

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