Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
FileSetDate
Функция
Установка даты и времени последнего изменения файла System unit
  
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, чтобы преобразовывать величину обычной даты в файловую дату.
Похожие команды
DateTimeToFileDate  Преобразует значение TDateTime в формат date/time формат файла

FileAge  Получение датя/время последнего изменения файла, не открывая его

FileDateToDateTime  Конвертирует формат даты/времени файла в значение TDateTime

FileGetAttr  Выдаёт атрибуты файла

FileSetAttr  Устанавливает атрибуты файла

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



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия