что я могу установить создание / последнее изменение / последний доступ к файлу?

Question

in: Как получить дату создания / последнего изменения файла в Delphi? Я нашел как получить дату создания / последнего изменения / последнего доступа / время файла un, но для установки этого значения в файле, что я могу сделать? Большое спасибо.

Answer 1

В блоке IOUtils.pas вы можете найти соответствующие методы в записях TFile и TDirectory: SetCreationTime, SetLastAccesstime, SetLastWriteTime, сопровождаемые их родными UTC.

Answer 2

Попробуйте функцию SysUtils.FileSetDate из модуля SysUtils, который внутренне вызывает функцию SetFileTime WinApi.

эта функция имеет две версии

function FileSetDate(const FileName: string; Age: Integer): Integer;
function FileSetDate(Handle: THandle; Age: Integer): Integer;

Параметр Age - время для установки.Вы должны использовать DateTimeToFileDate для преобразования значения TDateTime в отметку времени ОС Windows.

Как это

FileSetDate(FileName, DateTimeToFileDate(Now));