Изменить Дату Создания Файла Delphi

При работе с файлами в Delphi иногда может возникнуть необходимость изменить дату создания файла. Это может пригодиться, например, для искусственного создания "новых" файлов с определенными датами создания. Для изменения даты создания файла в Delphi можно использовать функцию SetFileTime().

Функция SetFileTime() принимает три параметра - дескриптор файла, указатели на структуры типа TFileTime, содержащих дату создания, последнего доступа и последнего изменения файла. Для изменения только даты создания необходимо передать текущие значения последнего доступа и последнего изменения. Пример использования функции:

var 
  Handle: THandle; 
  CreationTime, LastAccessTime, LastWriteTime: TFileTime; 
begin 
  Handle := CreateFile('C:\Test.txt', GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  GetFileTime(Handle, @CreationTime, @LastAccessTime, @LastWriteTime);
  SetFileTime(Handle, @CreationTime, @LastAccessTime, @LastAccessTime);
  CloseHandle(Handle);
end;

В данном примере мы получаем дескриптор файла с помощью функции CreateFile, затем получаем текущие значения дат создания, доступа и изменения файла с помощью функции GetFileTime. Далее мы передаем в функцию SetFileTime значения текущей даты создания и последнего доступа, и таким образом изменяем только дату создания файла. Наконец, мы закрываем дескриптор файла с помощью функции CloseHandle.