文档章节

获取、设置文件的时间

vga
 vga
发布于 2015/02/15 10:42
字数 307
阅读 173
收藏 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

粉丝 21
博文 362
码字总数 24609
作品 0
佳木斯
私信 提问
Android实践 -- 设置系统日期时间和时区

设置系统日期时间和时区 设置系统的日期时间和时区,需要 系统权限和系统签名, 需要在manifest文件中添加相应的权限 判断系统使用的是24小时制还是12小时制 设置系统的小时制 24小时制...

hejunbinlan
09/04
0
0
android TimePicker

在Android中关于日期时间的类有TimePicker、DatePicker、TimePickerDialog、DatePickerDialog、Calendar。其中TimePickerDialog、DatePickerDialog是对话框形式。 一、TimePicker   查看一...

amigos_wu
2012/07/10
0
2
C# 遍历指定文件夹中的所有文件

如何获取指定目录包含的文件和子目录 DirectoryInfo.GetFiles() //获取目录中(不包含子目录)的文件,返回类型为FileInfo[],支持通配符查找; DirectoryInfo.GetDirectories() //获取目录(...

Contac
2016/07/25
46
0
Mybatis缓存机制理解及配置

Ehcache EHCache是来自sourceforge(http://ehcache.sourceforge.net/)的开源项目,也是纯Java实现的简单、快速的Cache组件。EHCache支持内存和磁盘的缓存,支持LRU、LFU和FIFO多种淘汰算法...

Panshuyang
2016/02/23
242
0
开始nodejs+express的学习+实践(3)

1.一些常用的api操作 有时候我们可能要获取用户的ip地址和访问时间: 获取ip地址的处理:req.ip 获取访问时间,这时候我们使用Date创建date对象,把时间获取就可以了,同js操作 我们做一个简...

透笔度
2015/12/24
142
0

没有更多内容

加载失败,请刷新页面

加载更多

Spak—— sparkCore源码解析之RangePartitioner源码

   分区过程概览 RangePartitioner分区执行原理: 计算总体的数据抽样大小sampleSize,计算规则是:至少每个分区抽取20个数据或者最多1M的数据量。 根据sampleSize和分区数量计算每个分区的...

freeli
20分钟前
1
0
从内部自用到对外服务,配置管理的演进和设计优化实践

本文整理自阿里巴巴中间件技术专家彦林在中国开源年会上的分享,通过此文,您将了解到: 微服务给配置管理所带来的变化 配置管理演进过程中的设计思考 配置管理开源后的新探索 配置中心控制台...

阿里云官方博客
21分钟前
0
0
MySQL用户管理,常用MySQL语句、MySQL数据库备份恢复

12月6日任务 13.4 mysql用户管理 13.5 常用sql语句 13.6 mysql数据库备份恢复 13.4 mysql用户管理 grant all on *.* to 'user1' identified by 'passwd'; grant SELECT,UPDATE,INSERT on db......

zgxlinux
22分钟前
1
0
Spring异常之Druid – unregister mbean error

Spring异常之Druid – unregister mbean error 2017年04月19日 12:13:42 Dr.Zhu 阅读数:6688 版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/zt_fucker/arti...

linjin200
27分钟前
1
0
微信小程序webview问题

今天在改小程序的时候在使用webview的时候切换webview的地址行为,出现了诡异的情况。 默认querystring里会有多个?符号,使用的时候被微信给截取了,导致程序找不到改页面。 而且querystri...

钟元OSS
30分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部