Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Получить список файлов в ListView как в проводнике

01.01.2007
procedure TForm1.Button1Click(Sender: TObject);
var
 
ListItem: TListItem;
  sr
: tsearchrec;
 
NewColumn: TListColumn;
begin
 
NewColumn := ListView1.Columns.Add;
 
NewColumn := ListView1.Columns.Add; // добавдяются колонки
 
if FindFirst('*.*', faAnyFile - faDirectory - faVolumeId, sr) = 0 then
 
begin
   
ListItem := ListView1.Items.Add; // создается объект
   
ListItem.Caption := sr.name;
   
ListItem.SubItems.Add(inttostr(sr.size));
   
ListItem.SubItems.Add(datetimetostr(FileDateToDateTime(sr.time)));
   
while FindNext(sr) = 0 do
   
begin
     
ListItem := ListView1.Items.Add;
     
ListItem.Caption := sr.name;
     
ListItem.SubItems.Add(inttostr(sr.size));
     
ListItem.SubItems.Add(datetimetostr(FileDateToDateTime(sr.time)));
   
end;
   
FindClose(sr);
 
end;
end;
 

https://delphiworld.narod.ru/

DelphiWorld 6.0