Советы по 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 thenbeginWindows.FindClose(Handle);if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 thenbeginFileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);FileTimeToDosDateTime(LocalFileTime,LongRec(DosFileTime).Hi,LongRec(DosFileTime).Lo);LastAccessedTime := FileDateToDateTime(DosFileTime);Label1.Caption := DateTimeToStr(LastAccessedTime);end;end;end;
[000085]




Содержание  Назад  Вперед