Справочник функций и процедур Delphi: FileSetDate

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

FileSetDate
Функция
Установка даты и времени последнего изменения файла System unit
  
1 function FileSetDate ( FileHandle : Integer; FileAge : Integer ) : Integer;

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

Google  
 
Описание
Функция 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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook