Клуб программистов

    Delphi функция SetFileDate устанавливает значение последней модификации файла - дату и время.

     1.вариант функции передаётся имя файла (FileHandle), это не требует использование функции FileOpen.

    2.вариант функции передаётся имя файла.


    Поиск файла осуществляется в текущей папке.

    Второй параметр, FileAge - дата/время - Integer, которая используется, для того чтобы изменить значение последней модификации файла.

    Используйте функцию DateTimeToFileDate, чтобы преобразовывать величину обычной даты в файловую дату.

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

begin
   // Try to open the Unit1.DCU file for the current project
   fileName := 'Unit1.DCU';
   fileDate := FileAge(fileName);

   // Did we get the file age OK?
   if fileDate > -1 then
   begin
      ShowMessage(fileName+' last modified date = '+
                 DateTimeToStr(FileDateToDateTime(fileDate)));

      // Now change the last modified date
      newDateTime := StrToDateTime('01/01/2000 12:34:56');
      FileSetDate(fileName, DateTimeToFileDate(newDateTime));
   end;

   // Did we update the file last modified date OK?
   fileDate := FileAge(fileName);
   if fileDate > -1 then
      ShowMessage(fileName+' last modified date = '+ 
                 DateTimeToStr(FileDateToDateTime(fileDate)));
end;

Unit1.DCU last modified date = 30/10/2002 15:16:22
Unit1.DCU last modified date = 01/01/2000 12:34:56