Вот процедура поиска файлов, она напрямую загоняет в TListView
| Код |
/////////////////////////////////////////////////////////////
///Поиск файлов
/////////////////////////////////////////////////////////////
Procedure InsertFiles(Drive: TComboBox; Path: String; ListView: TListView; ImageList: TImageList; StatusBar: TStatusBar);
var
FileInfo : SHFILEINFO;
I : Integer;
SearchRec : TSearchRec;
ListItem : TListItem;
Icon : TIcon;
begin
Application.ProcessMessages;
Icon:=TIcon.Create;
ListView.Items.BeginUpdate;
ListView.Items.Clear;
try
I:=FindFirst(Drive.Text+'\'+Path+'*.*',faAnyFile,SearchRec);
While I = 0 do
begin
///////////////////////////////////////////////////////////////////////////
////Инфо файла
///////////////////////////////////////////////////////////////////////////
With ListView do
begin
ListItem:=ListView.Items.Add;
SHGetFileInfo(PChar(Drive.Text+'\'+Path+SearchRec.Name), 0, FileInfo,
SizeOf(FileInfo), SHGFI_DISPLAYNAME);
ListItem.Caption:=FileInfo.szDisplayName;
ListItem.SubItems.Add(FileExt(Drive,Path+SearchRec.Name));
SHGetFileInfo(PChar(Drive.Text+'\'+Path+SearchRec.Name), 0, FileInfo,
SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
Icon.Handle:=FileInfo.hIcon;
ListItem.ImageIndex:=ImageList.AddIcon(Icon);
DestroyIcon(FileInfo.hIcon);
end;
ListItem.SubItems.Add(DateTimeToStr(FileDateToDateTime(SearchRec.Time)));
I:=FindNext(SearchRec);
ListView.Cursor:=crHourGlass;
end;
FindClose(SearchRec);
finally
Icon.Free;
ListView.Items.EndUpdate;
end;
ListView.Cursor:=crDefault;
end;
|
|
). Вот использую для отображения файлов TListView, использую функцию SHGetFileInfo для вытягивания иконки, имени файла(без разширения). Вот только проблемма, очень медленно работает. Поск файлов в Windows\System32\ занимает 33 секунды, это уж очень много 
Мне сказали, что долго идёт поиск из-за того, что я каждый раз запрашую иконку у файловой системы(т.е. нужно КЕШировать иконки, я убрал поиск иконки, но ничего не изменилось. Ещё сказали что, сам TListView медленный, и лучше использовать TListBox.