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

Материал из DRKB

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

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;


Source: http://delphiworld.narod.ru/
ID: 01144