修改文件的时间

 修改文件的时间

 

{-------------------------------------------------------------------------------
  过程名:    UpdateFileTime
  作者:      imcjs
  日期:      2011.02.12
  参数:      FileName:string; CreationTime, LastAccessTime, LastWriteTime:TDateTime
  说明：     修改指定文件的创建时间、访问时间、修改时间
-------------------------------------------------------------------------------}

procedure UpdateFileTime(FileName:string; CreationTime, LastAccessTime, LastWriteTime:TDateTime);
var
  FileHnd : Integer;
  SysTime : TSystemTime;
  tTzi: TTimezoneInformation;
  FCreationTime, FLastAccessTime, FLastWriteTime: TFileTime;
begin
  GetTimezoneInformation(tTzi) ;
  CreationTime := CreationTime+Ttzi.Bias/1440;
  DateTimeToSystemTime(CreationTime,SysTime);
  SystemTimeToFileTime(SysTime,FCreationTime);
  LastAccessTime := LastAccessTime + Ttzi.Bias/1440;
  DateTimeToSystemTime(LastAccessTime,SysTime);
  SystemTimeToFileTime(SysTime,FLastAccessTime);
  LastWriteTime := LastWriteTime + Ttzi.Bias/1440;
  DateTimeToSystemTime(LastWriteTime,SysTime);
  SystemTimeToFileTime(SysTime,FLastWriteTime);
  FileHnd := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
  SetFileTime(FileHnd, @FCreationTime, @FLastAccessTime, @FLastWriteTime);
  FileClose(FileHnd);
end;