Советы по Delphi
Управление атрибутом файла 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]
