Извлечение иконки

← →
dimon_programmer © (2004-06-30 10:14) [0]

Здраствуйте мастера!
Подскажите как извлечь из ЛЮБОГО файла или папки иконку и добавать её в ImageList???

← →
Iconka (2004-06-30 13:04) [1]

А ты уверен что в ЛЮБОМ файле или папке содержится иконка?

← →
wisekaa © (2004-06-30 13:12) [2]

Определись что ты хочешь?
1. В D7 есть пример resxplor - посмотри.
2. Примеры есть в кулибе.
3.
- Научиться создавать TIcon и читать в него иконку.
- Научиться добавлять этот объект в ImageList.

← →
grom (2004-07-01 09:18) [3]

Image1.picture.icon.Handle:=extractIcon(hInstance,PChar("C:\file.exe"),0);
ImageList1.add(Image1.Picture.Icon.Handle);
примерно так

← →
begin...end © (2004-07-01 09:31) [4]

> dimon_programmer

var Icon: TIcon; begin Icon := TIcon.Create; Icon.Handle := ExtractIcon(HInstance, "С:\MyFile.exe", 0); ImageListName.AddIcon(Icon); Icon.Free; end;

P.S. Не проверял.

← →
Afteam (2004-07-06 09:20) [5]

to Begin...End:

Я проверял. Работать будет. Только иконку даст 32х32.

← →
grom (2004-07-06 17:49) [6]

a какую надо иконку 16х16?

← →
Nomolos (2004-07-06 19:54) [7]

Для получения иконки 16x16 нужно использовать ExtractIconEx (информация есть в Platform SDK), но существует масса проблем, связаных с её использованием. Если Вам необходимо создать что-то вроде эксплорера файлов, то легче сделать так:
- добавить на форму ImageList
- установить его свойство ShareImages в True
- добавить в uses библиотеку ShellAPI
- в обработку OnCreate добавить переменную Info типа TShFileInfo, а в код команду ImageList1.Handle := SHGetFileInfo("", 0, Info, SizeOf(TShFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
- При создании новой ячейки списка (например, в TreeView) выполнить
SHGetFileInfo(PChar(FilePath), 0, Info, SizeOf(TShFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON); NewNode.ImageIndex := Info.iIcon;

NewNode.SelectedIndex := Info.iIcon;

В FilePath должно содержаться полное имя (с путём) файла. Если оно задаётся явно, то PChar() нужно убрать.

Извлечение иконки Найти похожие ветки