![](/logo_grey.gif)
Последние записи
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
- Сравнение языков на массивах. Часть 1
- Сравнение языков по скорости
- Чтение огромных xml-файлов
- Как в Python+Selenium webdriver открыть новую вкладку в уже открытом браузере?
- Lazarus, проверка существования строки таблице
- BASM и record, обращение к полям записи
- Web PHP Framework Symfony
![](http://programmersclub.ru/slurm3.jpg)
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
![](http://programmersclub.ru/katajpg.jpg)
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
1st
Ноя
Получить список файлов и время создания файла в ListView
Posted by Chas under Пост-обзор
Надо, что бы при нажатии на кнопку, происходило сканирование директории в которой лежит экзешник и в соответствующие поля заносилась информация о файле – Название и Дата создания.
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)) span>;
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)));
&nb
sp; 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(
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;
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
![пеллетные котлы](http://programmersclub.ru/respective.jpg)
пеллетные котлы
![пеллетный котел](http://programmersclub.ru/emtas.jpg)
Пеллетный котел Emtas
![форум программистов](http://programmersclub.ru/banf336х280.gif)
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)