Delphi 更改文件时间

总是会遇到文件拷贝之后需要更改文件时间的要求。这里就小小的记录一下。

语言：Delphi

功能：文件的时间更新成现在系统的时间。

procedure SetFileDateTime(sFileName:String);
var
  Fs:TFileStream;
  Ft:TFileTime;
  sysT:_SYSTEMTIME;
begin
  Fs := TFileStream.Create(sFileName,fmOpenReadWrite);

  GetSystemTime(sysT);
  SystemTimeToFileTime(sysT,Ft);

  SetFileTime(Fs.Handle,@Ft,@Ft,@Ft);

  Fs.Free;
end;