Выставить дату для файлаDelphi , Файловая система , ФайлыВыставить дату для файла
Оформил: DeeCo function SetFileDateTime(FileName: string; NewDateTime: TDateTime): Boolean; var FileHandle: Integer; FileTime: TFileTime; LFT: TFileTime; LST: TSystemTime; begin Result := False; try DecodeDate(NewDateTime, LST.wYear, LST.wMonth, LST.wDay); DecodeTime(NewDateTime, LST.wHour, LST.wMinute, LST.wSecond, LST.wMilliSeconds); if SystemTimeToFileTime(LST, LFT) then begin if LocalFileTimeToFileTime(LFT, FileTime) then begin FileHandle := FileOpen(FileName, fmOpenReadWrite or fmShareExclusive); if SetFileTime(FileHandle, nil, nil, @FileTime) then Result := True; end; end; finally FileClose(FileHandle); end; end; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then if SetFileDateTime(OpenDialog1.FileName, now) then ShowMessage('Date set to now !'); end; Статья Выставить дату для файла раздела Файловая система Файлы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |