Поменять даты создания, изменения, доступа к файлуDelphi , Файловая система , ФайлыПоменять даты создания, изменения, доступа к файлуАвтор: 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; Статья Поменять даты создания, изменения, доступа к файлу раздела Файловая система Файлы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |