Советы по 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]



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