Советы по Delphi

         

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


Если в Проводнике Windows 95 на любом файле нажать правую кнопку мыши и выбрать пункт "Свойства", можно увидеть время последнего доступа к данному файлу.

Как мне это сделать через Delphi/API???

    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;
[000085]



Содержание раздела