скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Функция, которая устанавливает дату одного файла, равную дате другого файла




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;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook