Как прочесть атрибут файла 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

;

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com