Программирование на Delphi и не только Время последнего обращения к файлу | Программирование на Delphi и не только

Delphi FAQ >> Файлы и каталоги

Готовая функция на языке программирования Delphi, которая возвращает время последнего обращения к заданному файлу:

function FileLastAccess (const filename : string) : string;
var   FileHandle : THandle;   LocalFileTime : TFileTime;   DosFileTime : DWORD;   LastAccessedTime : TDateTime;   FindData : TWin32FindData;

begin

  Result := »;   FileHandle := FindFirstFile(PChar(filename), FindData);

  if FileHandle  INVALID_HANDLE_VALUE then

  begin     Windows.FindClose(FileHandle);

    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);       Result := DateTimeToStr(LastAccessedTime);

    end;

  end;
end;

Нужна качественная отделка балконов и лоджий, чтобы на балконе было тепло и красиво.