TlistView显示文件图标

uses
shellApi;
var
  icon: TIcon;
  FileName: string;
  FileInfo: TSHFileInfo;
begin
  if OpenDialog1.Execute then
  begin
    ListView1.GridLines := True;
    ListView1.ViewStyle := vsReport;
    try
      icon := TIcon.Create;
      FileName := OpenDialog1.FileName;
      ListView1.Items.Add.Caption :=ExtractFileName( FileName);
      SHGetFileInfo(PChar(fileName), 0, FileInfo, SizeOf(Fileinfo), SHGFI_LARGEICON or
        SHGFI_SMALLICON or
        SHGFI_ICON);
        ListView1.Items.Item[ListView1.Items.Count - 1].SubItems.Add(IntToStr(FileInfo.dwAttributes));
      icon.Handle := FileInfo.hIcon;
      ImageList1.AddIcon(icon);
      ListView1.Items.Item[ListView1.Items.Count - 1].ImageIndex := ImageList1.Count - 1;
    finally
      icon.Free;
    end;
  end;
end;