listview里显示某几个特定文件？解决方案

listview里显示某几个特定文件？
opendialog选定几个文件以后怎么把这些文件显示在listview里面？并且显示对应的icon？

[解决办法]
uses ShellAPI;

procedure TryIt;
var
item: TListItem;
info: SHFILEINFO;
begin
if not OpenDialog1.Execute then Exit;

with OpenDialog1 do
for i := 0 to Files.Count - 1 do
begin
item := ListView1.Items.Add;
item.Caption := Files[i];
ZeroMemory(@info, sizeof(info));
SHGetFileInfo(PChar(item.Caption), FILE_ATTRIBUTE_NORMAL,
info, sizeof(info), SHGFI_USEFILEATTRIBUTES or SHGFI_ICON);
// 获得Icon的句柄之后可以根据自己的要求来运用 ...
// e.g. Image1.Picture.Icon.Handle := info.hIcon;
// 必要的时候用DestroyIcon(info.hIcon);
end;

end;