Получить список файлов в ListView как в проводнике
|
Штирлиц поднял трубку и слышал писк.
- Штирлиц, подумал модем и продолжал делать инит.
- Модем, подумал Штирлиц и запищал на 33600 бод.
|
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;
|
|
