Directory structure with associated icons and file info in ListView
Using ShellAPI unit and few lines of code, we can load directory structure into ListView and show associated icons and information for each file.
First of all, add ShellAPI unit to uses list. Place ListView and ImageList on form. Into ImageList component, we will store icons for each file.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 |
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, StdCtrls, ComCtrls, ShellAPI; type TForm1 = class(TForm) ListView1: TListView; Button1: TButton; ImageList1: TImageList; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); const sPath = 'c:windows'; var i: integer; Icon: TIcon; SearchRec: TSearchRec; ListItem: TListItem; FileInfo: SHFILEINFO; begin ListView1.SmallImages := ImageList1; ListView1.ViewStyle := vsReport; ListView1.Columns.Add; ListView1.Columns.Add; Icon := TIcon.Create; try ListView1.Items.BeginUpdate; i := FindFirst(sPath + '*.*', faAnyFile, SearchRec); while i = 0 do begin application.ProcessMessages; with ListView1 do begin if ((SearchRec.Attr and FaDirectory <> FaDirectory) and (SearchRec.Attr and FaVolumeId <> FaVolumeID)) then begin ListItem := ListView1.Items.add; SHGetFileInfo(PChar(sPath + SearchRec.Name), 0, FileInfo, SizeOf(FileInfo), SHGFI_DISPLAYNAME); Listitem.Caption := FileInfo.szDisplayName; SHGetFileInfo(PChar(sPath + SearchRec.Name), 0, FileInfo, SizeOf(FileInfo), SHGFI_TYPENAME); ListItem.SubItems.Add(FileInfo.szTypeName); SHGetFileInfo(PChar(sPath + SearchRec.Name), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON); Icon.Handle := FileInfo.hIcon; ListItem.ImageIndex := ImageList1.AddIcon(Icon); end; end; i := FindNext(SearchRec); end; finally ListView1.items.EndUpdate; Icon.Free; end; end; end. |
In sPath constant is a path to directory we will load into ListView. Of course, you can change this dynamically, this is just for example. ListView will be set to Report style automatically and all files in specified directory will be loaded into it together with icon and description.