15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту




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

Ниже представлены два способа, которые позволяют изменить время и дату файла на любое другое.

Способ 1:

procedure ChangefileStamp(filename : TFileName; newtime: TDateTime);
var vhnd : Integer;
begin
   vhnd := FileOpen( filename, fmOpenReadWrite );
   FileSetDate( vhnd, Datetimetofiledate(newtime) );
   FileClose(vhnd);
end;

Способ 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;