Функція FileSetDate – встановлює дату та час останньої зміни файлу.

Функція FileSetDate в Delphi – встановлення дати та часу останньої зміни файлу.

Функція FileSetDate: показ, оновлення та повторний показ дати останньої зміни файлу

var
  fileName    : string;
  fileDate    : Integer;
  newDateTime : TDateTime;

begin
  // Спроба відкрити файл Unit1.DCU для поточного проекту
  fileName := 'Unit1.DCU';
  fileDate := FileAge(fileName);

  // Ми встановили вік файлу?
  if fileDate > -1 then
  begin
    ShowMessage(fileName+' дата останньої зміни = '+
                DateTimeToStr(FileDateToDateTime(fileDate)));

    // Тепер змініть дату останньої зміни
    newDateTime := StrToDateTime('01/01/2000 12:34:56');
    FileSetDate(fileName, DateTimeToFileDate(newDateTime));
  end;

  // Ми оновили дату останньої зміни файлу?
  fileDate := FileAge(fileName);
  if fileDate > -1 then
    ShowMessage(fileName+' дата останньої зміни = '+
                DateTimeToStr(FileDateToDateTime(fileDate)));
end;