listview显示文件图标

Question

我想做个东西，里面想用listview显示文件图标和列表图标。delphi7里带的例子Virtual Listview讲的太多了，没有弄清。
我只想知道listview显示图标这个功能，应该在那里？写什么代码？

Answer 1

将 ListView 和 ImageList 关联，条目指定 Index，然后在 ImageList 设置图标.

Answer 2

Listview的SmallImages属性关联到自己设置的ImageList
Listview添加数据时TheItem := listview1.Items.Add;
TheItem.caption:='xxxxxxxx';
TheItem.subItems.add('xxxx');
TheItem.ImageIndex:=1; //这里的1 是ImageList里面的图标ID;

Answer 3

能问一下，把文件图标加载到imageList怎么加？

Answer 4

双击ImageList图标，有辅助界面

Answer 5

TSHFileInfo FileInfo;
SmallImages = SHGetFileInfo("C:\\", 0, &FileInfo, sizeof(FileInfo),
    SHGFI_SYSICONINDEX | SHGFI_SMALLICON);
LargeImages = SHGetFileInfo("C:\\", 0, &FileInfo, sizeof(FileInfo),
    SHGFI_SYSICONINDEX | SHGFI_LARGEICON);
根据需要链接到ListView控件