Время последнего изменения файла

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;


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