Пример кода : Показ, обновление, и повторный показ даты последнего изменения файла
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
