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

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

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

function FileLastWrite (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;

У нас в Минске компьютеры и бытовая техника стоят достаточно дорого, поэтому, когда я решил купить себе ноут, то изучил цены в соседних государствах. В итоге решил, что куплю ноутбук в Москве, так как там цены на них значительно ниже.