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




Содержание  Назад  Вперед