如何在listview中显示任何扩展名的文件图标(100分)

如何在listview中显示任何扩展名的文件图标

就是在一个edit窗口中输入某个扩展名 就能在listview中把这个windows图标显示出来

delphi 的demos文件夹中就有现成的例子

请参见borland/demos/Virtual Listview下面的例子

太难了，看不太懂 不过我会慢慢看的

下面程序可以，我是过了：
with ListView1 do
begin
SmallImages := ImageList1;
Icon := TIcon.Create;
ListItem := Items.Add;
Listitem.Caption :=edit1.text;
//扩展名，如：doc
Flag:=(SHGFI_SMALLICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES);
SHGetFileInfo(Pchar('1.'+edit1.text),0,info,Sizeof(info),Flag);
Icon.Handle :=info.hIcon;
ImageList1.AddIcon(Icon);
ListItem.ImageIndex:=ImageList1.Count-1;
end;

我试过了，确实能行！！
多谢了 高手！！