文档章节

获取、设置文件的时间

vga
 vga
发布于 2015/02/15 10:42
字数 307
阅读 216
收藏 1

#程序员薪资揭榜#你做程序员几年了?月薪多少?发量还在么?>>>

function CovFileDate(Fd:_FileTime):TDateTime; { 转换文件的时间格式 }
var
  Tct:_SystemTime;
  Temp:_FileTime;
begin
  FileTimeToLocalFileTime(Fd,Temp);
  FileTimeToSystemTime(Temp,Tct);
  CovFileDate:=SystemTimeToDateTime(Tct);
end;
  
procedure GetFileTime(const Tf:string);
  { 获取文件时间,Tf表示目标文件路径和名称 }
const
  Model=yyyy/mm/dd,hh:mm:ss; { 设定时间格式 }
var
  Tp:TSearchRec; { 申明Tp为一个查找记录 }
  T1,T2,T3:string;
begin
  FindFirst(Tf,faAnyFile,Tp); { 查找目标文件 } T1:=FormatDateTime(Model,
  CovFileDate(Tp.FindData.ftCreationTime)));
  { 返回文件的创建时间 }
  T2:=FormatDateTime(Model,
  CovFileDate(Tp.FindData.ftLastWriteTime)));
  { 返回文件的修改时间 }
  T3:=FormatDateTime(Model,Now));
  { 返回文件的当前访问时间 }
  FindClose(Tp);
end;
  
procedure SetFileDateTime(const Tf:string);
  { 设置文件时间,Tf表示目标文件路径和名称 }
var
  Dt1,Dt2:Integer;
  Fs:TFileStream;
  Fct,Flt:TFileTime;
begin
  Dt1:=DateTimeToFileDate(
  Trunc(Form1.DateTimePicker1.Date) + Frac(Form1.DateTimePicker2.Time));
  Dt2:=DateTimeToFileDate(
  Trunc(Form1.DateTimePicker3.Date) + Frac(Form1.DateTimePicker4.Time));
  { 转换用户输入在DataTimePicker中的信息 }
  try
      FS := TFileStream.Create(Tf, fmOpenReadWrite);
  try
  if DosDateTimeToFileTime(LongRec(DT1).Hi, LongRec(DT1).Lo, Fct) and
  LocalFileTimeToFileTime(Fct, Fct) and
  DosDateTimeToFileTime(LongRec(DT2).Hi, LongRec(DT2).Lo, Flt) and
  LocalFileTimeToFileTime(Flt, Flt)
  then SetFileTime(FS.Handle,
  @Fct , @Flt, @Flt);
  { 设置文件时间属性 }
  finally
  FS.Free;
  end;
  except
      MessageDlg(日期修改操作失败!, mtError, [mbOk], 0);
     { 因为目标文件正在被使用等原因而导致失败 }
  end;
end;

© 著作权归作者所有

vga

vga

粉丝 24
博文 373
码字总数 26966
作品 0
佳木斯
私信 提问
加载中

评论(0)

Linux操作系统中系统调用接口

进程控制 fork 创建一个新进程 clone 按指定条件创建子进程 execve 运行可执行文件 exit 终止进程 _exit 立即终止当前进程 getdtablesize 进程所能打开的最大文件数 getpgid 获取指定进程组标...

osc_9gmn690o
2019/04/04
1
0
HTML5 音频audio属性

audio 的控制函数主要有: 加载音频、视频软件,通常不必调用,除非是动态生成的元素,用来在播放前预加载 加载并播放音频、视频文件,除非文件已经暂停在其他位置,否则默认重头开始播放 暂...

osc_as44gib4
2018/06/30
0
0
python---django使用cookie和session

在views中的调用: def login(req): 在视图中设置cookie是通过set_cookie方法完成的,而不是请求响应的,并且值是通过字符串返回给请求的。 补充: 设置cookie:newuser = username.encode('...

osc_11wdnyu0
2018/03/28
2
0
FileSystemWatcher用法详解【转】

FileSystemWatcher用法详解 FileSystemWatcher控件主要功能: 监控指定文件或目录的文件的创建、删除、改动、重命名等活动。可以动态地定义需要监控的文件类型及文件属性改动的类型。 1.常用...

itjeff
01/23
0
0
delphi 文件操作(信息获取)

delphi获取Exe文件版本信息的函数 Type TFileVersionInfo = RecordFixedInfo:TVSFixedFileInfo; {版本信息}CompanyName:String; {公司名称}FileDescription:String; {说明}FileVersion:Stri......

osc_e61ersei
2019/08/13
3
0

没有更多内容

加载失败,请刷新页面

加载更多

apache服务器 --Internal Server Error(内部服务错误)

问题显现: 首先,我先展示一下错误提示代码: Internal Server ErrorThe server encountered an internal error or misconfiguration and was unable to complete your request. Ple......

二营长意大利炮
25分钟前
15
0
唱作俱佳,腾讯AI艾灵领唱中国新儿歌

唱作俱佳,腾讯AI艾灵领唱中国新儿歌 今年六一儿童节,腾讯联合北京荷风艺术基金会发起“腾讯荷风艺术行动”,给孩子们送上两份礼物,为音乐美学中国素质教育的发展做出贡献。 其中一份就是由...

腾讯技术资讯
27分钟前
39
0
BeetlSQL3.0 难搞

最近想支持一下nosql,难搞,每个nosql server,都很难一天掌握安装和基础用法,所以先决定选用clickhouse ,apache drill (操作文件),Cassandra,这三个下手 hadoop系列也挺好的,但确实没时...

闲大赋
27分钟前
18
0
生产计划体系学习

生产计划的内容: 1、生产的最终产品与零部件数量 2、生产的批量和产出时间 3、产品产出的日程计划 生产计划编制思路,按照分层次来进行的 1、主生产计划(MPS) 2、零部件生产计划(MRP) ...

旺仔没馒头
28分钟前
19
0
如何使用Maven创建具有依赖项的可执行JAR? - How can I create an executable JAR with dependencies using Maven?

问题: I want to package my project in a single executable JAR for distribution. 我想将我的项目打包在一个可执行的JAR中进行分发。 How can I make a Maven project package all depen......

javail
30分钟前
21
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部