Данные о файлах поместить в TListView

[EaRLL]

В общем есть на форме компонент ListView, в нём есть колонки
Название | Дата создания
надо, что бы при нажатии на кнопку, происходило сканирование директории в которой лежит экзешник и в соответствующие поля заносилась информация о файле - Название и Дата создания.

[W0LF]

Получить список файлов в 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;

Время создания файла:

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
  Success: integer;
  DT: TFileTime;
  ST: TSystemTime;
begin
   Success := SysUtils.FindFirst( 'путь_к_файлу', faAnyFile, SearchRec );
   if ( Success = 0 ) and
      ( ( SearchRec.FindData.ftLastAccessTime.dwLowDateTime <> 0 ) or
      ( SearchRec.FindData.ftLastAccessTime.dwHighDateTime <> 0 ) )
   then
   begin
      FileTimeToLocalFileTime( SearchRec.FindData.ftCreationTime, DT );
      FileTimeToSystemTime( DT, ST );
      Memo1.Lines.Clear;
      Memo1.Lines.Add( 'Файл был создан:' );
      Memo1.Lines.Add( 'Year - ' + IntToStr( st.wYear ) );
      Memo1.Lines.Add( 'Month - ' + IntToStr( st.wMonth ) );
      Memo1.Lines.Add( 'DayOfWeek - ' + IntToStr( st.wDayOfWeek ) );
      Memo1.Lines.Add( 'Day - ' + IntToStr( st.wDay ) );
      Memo1.Lines.Add( 'Hour - ' + IntToStr( st.wHour ) );
      Memo1.Lines.Add( 'Minute - ' + IntToStr( st.wMinute ) );
      Memo1.Lines.Add( 'Second - ' + IntToStr( st.wSecond ) );
      Memo1.Lines.Add( 'Milliseconds - ' + IntToStr( st.wMilliseconds ) );
   end;
   SysUtils.FindClose( SearchRec );
end;

[Stilet]

если воспользоваться примером из http://www.programmersforum.ru/showt...ighlight=findA
То полученные данные в Лист вносить так:

with ListView.items.ADD do begin
 caption:=s.name;
 SubItems.add(DateTimeToStr(s.Time));
end;

[Airou]

Сообщение от W0LF

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

procedure TForm1.Button1Click(Sender: TObject);
...
  if FindFirst('*.*', faAnyFile - faDirectory - faVolumeId, sr) = 0 then
 ...

А как можно задать папку в которой будет происходить поиск?

[Stilet]

FindFirst('C:\папка в которой будет идти поиск\*.*',

[ikot]

Думаю вам подойдет компонент shelltreeview или virtualshelltreeview. Там эти функции делает сам компонент. Во вторых компонент virtualshelltreeview намного быстрее стандартного treeview...

[eltorna]

а как бы сделать так, чтобы можно было работать с файлами, путь к которым содержит Unicode-символы?
Среда Delphi 7

[Пепел Феникса]

у вас какая версия Делфи?

[eltorna]

Среда Delphi 7

[Пепел Феникса]

тогда вам тяжело будет