Устанавливаем дату создания файла

Previous  Top  Next

    
 

 

Code:

Function SetFileDate(

Const FileName : String;

Const FileDate : TDateTime): Boolean;

var

FileHandle        : THandle;

FileSetDateResult : Integer;

begin

try

try

  FileHandle := FileOpen

     (FileName,

      fmOpenWrite OR fmShareDenyNone);

  if FileHandle > 0 Then begin

   FileSetDateResult :=

     FileSetDate(

       FileHandle,

       DateTimeToFileDate(FileDate));

     result := (FileSetDateResult = 0);

   end;

except

  Result := False;

end;

finally

FileClose (FileHandle);

end;

end;

 

{Использование:}

SetFileDate('c:\mydir\myfile.ext', Now)

 

 

©Drkb::03150

http://delphiworld.narod.ru/

DelphiWorld 6.0

 


 

Code:

var

f: file;

begin

Assign(f, DirInfo.Name);

Reset(f);

SetFTime(f, Time);

Close(f);

end;

 

 

 

©Drkb::03151

http://delphiworld.narod.ru/

DelphiWorld 6.0


 

Функция, которая устанавливает дату одного файла, равную дате другого файла

 

Code:

procedure CopyFileDate(const Source, Dest: String);

var

SourceHand, DestHand: word;

begin

SourceHand := FileOpen(Source, fmOutput);       { открываем исходный файл }

DestHand := FileOpen(Dest, fmInput);            { открываем целевой файл }

FileSetDate(DestHand, FileGetDate(SourceHand)); { получаем/устанавливаем дату }

FileClose(SourceHand);                          { закрываем исходный файл }

FileClose(DestHand);                            { закрываем целевой файл }

end;

 

©Drkb::03152

http://delphiworld.narod.ru/

DelphiWorld 6.0