1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
begin
 IF otHidden in ShellListView1.ObjectTypes then
   ShellListView1.ObjectTypes := [otFolders, otNonFolders]
 else
   ShellListView1.ObjectTypes := [otFolders, otNonFolders, otHidden];
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

if h<>INVALID_HANDLE_VALUE then repeat
if sr.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0 then begin
listitem:=lv.items.add;
listitem.caption:=sr.cFilename;
SHGetFileInfo(pchar(pfad+sr.cFileName),0,FileInfo,gr,SHGFI_TypeName or SHGFI_ICON);
Icon.handle:=FileInfo.hIcon;
listitem.Imageindex:=il.addIcon(Icon);
end;
until Findnextfile(h,sr)=false;
Icon.free;
hlp.free;
lv.items.endupdate;
end;                    

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:

procedure einlesen(pfad:string);
var
sr:TWin32FindData;
h:THandle;
listitem:TListitem;
FileInfo:SHFileInfo;
gr:integer;
Icon:TIcon;
hlp:TListview;
begin
il.clear;
lv.items.clear;
hlp:=TLIstview.create(nil);
hlp.visible:=false;
hlp.parent:=lv;
hlp.sorttype:=sttext;
Icon:=TIcon.Create;
gr:=sizeof(FileInfo);
lv.items.beginupdate;
h:=FindFirstFile(PChar(pfad+'*.*'),sr);

if h<>INVALID_HANDLE_VALUE then repeat
if sr.dwFileAttributes and FILE_ATTRIBUTE_HIDDEN = 0 then
if sr.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0 then begin
listitem:=lv.items.add;
listitem.caption:=sr.cFilename;
SHGetFileInfo(pchar(pfad+sr.cFileName),0,FileInfo,gr,SHGFI_TypeName or SHGFI_ICON);
Icon.handle:=FileInfo.hIcon;
listitem.Imageindex:=il.addIcon(Icon);
end;
until Findnextfile(h,sr)=false;
Icon.free;
hlp.free;
lv.items.endupdate;
end;                    

1:
2:
3:
4:

procedure TForm1.ListView1DblClick(Sender: TObject);
begin
MessageDlg(ListView1.ItemFocused.Caption, mtInformation, [mbOk], 0);
end;