Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





Как изменить дату и время файла 2


procedure TouchFile(const FileName: string; Date: TDateTime);
var
  TheFile: file;
begin
  AssignFile(TheFile, FileName);
  Reset(TheFile);
  FileSetDate(TFileRec(TheFile).Handle, DateTimeToFileDate(Date));
  Close(TheFile);
end;

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011