您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

Delphi修改文件日期和时间

时间:2011/9/3 15:31:48 点击:

  核心提示:procedure ModifyFileDate(const ASourcefilevar LSourceStream: TFileStream; FT : FILETIME; ST : SYSTEM...
procedure ModifyFileDate(const ASourcefile:string);
var
  LSourceStream: TFileStream;
  FT   :   FILETIME;
  ST   :   SYSTEMTIME;
begin
  LSourceStream := TFileStream.Create(ASourceFile, fmOpenReadWrite);
  try
    FileTimeToSystemTime(FT,ST);
    ST.wYear :=2009;
    ST.wMonth :=5;
    ST.wDay :=10;
    SystemTimeToFileTime(ST,FT);
    SetFileTime(LSourceStream.Handle,@FT,@FT,@FT);
  finally
    FreeAndNil(LSourceStream);
  end;
end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号