Question

delphi怎么让listview在加载SQL数据库中数据同时显示对应拓展名的图标~~如果不把图标存入数据库怎么办

我写的把数据加载到listview中的代码如下：
ListView1.Items.Clear;
while not eof do
begin
ListView1.Items.BeginUpdate;
Titem:=ListView1.Items.add;
Titem.Caption:=FieldByName('文件名').asString;
Titem.SubItems.Add(FieldByName('文件大小').asString);
Titem.SubItems.Add(FieldByName('创建日期').asString);
Titem.SubItems.Add(FieldByName('文件路径').asString);
next;
ListView1.Items.EndUpdate;
end;
如果想实现加载系统图标的功能该如何做啊，有什么例子吗？ 谢谢啦！

Answer 1

这样可以取得系统图标：
procedure GetFileIcon(FileName:string;Flag:integer;Icon:TIcon);
var
ImageList: TImageList;
FileInfo: TSHFILEINFO;
hnd:THandle;
begin
Flag := SHGFI_SYSICONINDEX or Flag;
FillChar(FileInfo, SizeOf(FileInfo), #0);
ImageList:= TImageList.Create(nil);
imagelist.ShareImages := true; //用了它才能用Free;
Hnd:=SHGetFileInfo(PChar(FileName), 0, FileInfo,
SizeOf(FileInfo), Flag);

ImageList.Handle:=Hnd;
ImageList.GetIcon(FileInfo.iIcon,Icon);
ImageList.Free;
end;
调用：
var
Icon: TIcon;
Flags:integer;
begin
Icon:= TIcon.Create;
Flags:= SHGFI_SMALLICON;
GetFileIcon('你要取名标的文件名',Flags,Icon);
//你的代码了,要如何处理Icon
Icon.Free;
end;