Скачать: CL | DM;

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

← →
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() нужно убрать.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c