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

Previous  Top  Next

    
 

 

Code:

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;

 

 

©Drkb::01144

http://delphiworld.narod.ru/

DelphiWorld 6.0