Иконки файлов в дереве

← →
harismatik (2003-02-12 11:40) [0]

Как файлам в дереве отобразтить ассоциированные с ними иконки?
Я слышал, что это делается как-то через Shell..., но как конкретно - не знаю. Подскажите.

← →
крот © (2003-02-12 11:54) [1]

Посмотри пример в дельфи Demos\Virtual ListView

← →
harismatik (2003-02-12 12:13) [2]

А еще? Попроще бы как-то.

Что у меняделается:
1. Все пути до файлов хранятся в БД(просто мне было необходимо в дерево выводить пути и сам исполняемый файл)
2. Потом по этим путям я извлекаю иконки у файлов и добавляю их в дерево.
with TreeView1.Items do
begin
Clear;
for i:=1 to table1.RecordCount do begin
MyTreeNode1 := Add(nil, table1.Fields[1].asstring);
for j:=1 to table2.RecordCount do begin
ChildNode:=AddChild(MyTreeNode1,table2.Fields[1].asstring);
strpcopy(apchar,table2.fields[4].asstring);
Icon := ExtractIcon(HInstance,apchar,0);
YIcon := TIcon.Create;
YIcon.Handle := icon;
imagelist1.AddIcon(YIcon);
ChildNode.ImageIndex := imagelist2.AddIcon(YIcon);
table2.next;
end;
table1.next;
end;
end;

Иконки файлов в дереве Найти похожие ветки