Delphi-Help

Описание

1 function FileSetDate ( FileHandle : Integer; FileAge : Integer ) : Integer;
2 function FileSetDate ( const FileName : string; FileAge : Integer ) : Integer;

Функция SetFileDate устанавливает значение последней модификации файла - дату и время.
Версия 1 функции передаётся имя файла (FileHandle), это не требует использование функции FileOpen.
Версия 2 функции передаётся имя файла.
Поиск файла осуществляется в текущей папке.
Второй параметр, FileAge - дата/время - Integer, которая используется, для того чтобы изменить значение последней модификации файла.
Используйте функцию DateTimeToFileDate, чтобы преобразовывать величину обычной даты в файловую дату.

Пример кода

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)));
// Now change the last modified date
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;

Unit1.DCU дата последнего изменения = 30/10/2002 15:16:22
Unit1.DCU дата последнего изменения = 01/01/2000 12:34:56

Примечание