Выставить дату для файла

Советы » Файлы » Выставить дату для файла

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com