Как прочесть атрибут файла Last Accessed (последний доступ)

Советы » Файлы » Как прочесть атрибут файла Last Accessed (последний доступ)

procedure TForm1.Button1Click(Sender: TObject);
var

  FileHandle: THandle;
  LocalFileTime: TFileTime;
  DosFileTime: DWORD;
  LastAccessedTime: TDateTime;
  FindData: TWin32FindData;
begin

  FileHandle := FindFirstFile('AnyFile.FIL', FindData);
  if
 FileHandle <> INVALID_HANDLE_VALUE then

  begin

    Windows.FindClose(Handle);
    if
 (FindData.dwFileAttributes and
 FILE_ATTRIBUTE_DIRECTORY) = 0 then

    begin

      FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
      FileTimeToDosDateTime(LocalFileTime,
        LongRec(DosFileTime).Hi, LongRec(DosFileTime).Lo);
      LastAccessedTime := FileDateToDateTime(DosFileTime);
      Label1.Caption := DateTimeToStr(LastAccessedTime);
    end
;
  end
;
end
;

Как прочесть атрибут файла Last Accessed (последний доступ)

Другое по теме:

Категории

Статьи

Советы