БОЛЬШОЙ FAQ ПО DELPHI



Как изменить дату и время файла 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ