Главная страницаОбратная связьКарта сайта

Поменять даты создания, изменения, доступа к файлу

Автор: Zukero

procedure TfrmMain.ChangeDate(AFileName: string);
var
  i: TDate;
  H: Integer;
  f: TFileTime;
  s: TSystemTime;
begin
  H := CreateFile(PChar(AFileName), $0100, 0, nil, OPEN_EXISTING,
    FILE_FLAG_BACKUP_SEMANTICS, 0);

  i := Date;

  DateTimeToSystemTime(i, S);
  SystemTimeToFileTime(S, F);
  LocalFileTimeToFileTime(F, F);
  SetFileTime(H, @f, @f, @f);
  CloseHandle(H);
end;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Поменять даты создания, изменения, доступа к файлу", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info