Управление атрибутом файла date/time

"Могу ли я написать функцию, которая устанавливает дату одного файла, равную дате другого файла?"

Не проблема. Используйте следующую функцию, использующую в качестве параметров две строки с полными путями/именами файлов DOS. Файл, дату которого вы хотите установить идет вторым параметром, файл, чью дату вы хотите использовать - первым.

procedure CopyFileDate(const Source, Dest: String);
var
SourceHand, DestHand: word; begin
SourceHand := FileOpen(Source, fmOutput); { открываем исходный файл } DestHand := FileOpen(Dest, fmInput); { открываем целевой файл } FileSetDate(DestHand, FileGetDate(SourceHand)); { получаем/устанавливаем дату } FileClose(SourceHand); { закрываем исходный файл } FileClose(DestHand); { закрываем целевой файл } end;

[000534]

Содержание раздела