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;
Нужна качественная отделка балконов и лоджий, чтобы на балконе было тепло и красиво.