05.06.2006, 17:37
|
|
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Примерно так:
Код:
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;
|