|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Дата создания файла
Есть некоторый файл с неким расширением и нужно определить дату
его создания. Как это сделать? |
#2
|
||||
|
||||
Примерно так:
Код:
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; Последний раз редактировалось Decoding, 26.06.2006 в 00:10. |