Get the “Last Accessed” attribute of a file

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Var

   FileHandle  : THandle ;

   LocalFileTime : TFileTime ;

   DosFileTime : DWORD ;

   LastAccessedTime : TDateTime ;

   FindData    : TWin32FindData ;

Begin

   FileHandle := FindFirstFile ( 'c:\Files.txt' , FindData ) ;

   If FileHandle <> INVALID_HANDLE_VALUE Then

   Begin

      Windows.FindClose ( Handle ) ;

      If ( FindData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY ) = 0 Then

      Begin

         FileTimeToLocalFileTime ( FindData.ftLastAccessTime , LocalFileTime ) ;

         FileTimeToDosDateTime ( LocalFileTime , LongRec ( DosFileTime ) .Hi , LongRec ( DosFileTime ) .Lo ) ;

         LastAccessedTime := FileDateToDateTime ( DosFileTime ) ;

         Caption := DateTimeToStr ( LastAccessedTime ) ;

      End ;

   End ;

End ;