文档章节

获取、设置文件的时间

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
博文 359
码字总数 24366
作品 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
安卓应用修改系统时间

博客: 安卓之家 微博: 追风917 CSDN: 蒋朋的家 简书: 追风917 前言 通常,我们来获取系统时间来做一些事情,那么,如何设置系统时间呢? 问题抛出来,解决方法也就应运而生了。 解决方法...

jp1017
2016/09/26
0
0
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

没有更多内容

加载失败,请刷新页面

加载更多

python中cv2模块imread函数

导入 >> import cv2>> import numpy as np 读图片 >> image_arr = cv2.imread('file_path') 灰度图扩展成彩色图 可以通过图片的channel判断是否是灰度图。如果需要可以将灰度图扩展到RGB......

温子寒
1分钟前
0
0
利用剪切板JS API优化输入框的粘贴体验

直接复制记录下 /**@description 表单输入框粘贴体验优化,出处https://www.zhangxinxu.com/wordpress/?p=8003@author zhangxinxu*/// 遍历所有的输入框[].slice.call(document.qu...

红羊在厦门
8分钟前
0
0
awk复习

10月22日任务 复习 awk调用外部变量 -v参数设置内部变量调用外部变量 [root@castiel-Lu awk]# a=44[root@castiel-Lu awk]# echo "ABCD" | awk -v GET_A=$a '{print GET_A}'44 更复杂的...

robertt15
14分钟前
0
0
2018CTF大赛学习

1.C伪随机数,可预测,可用来做加密解密,如 int main() { // This program will create same sequence of // random numbers on every program run for(int i = 0; ......

simpower
22分钟前
0
0
XamarinEssentials教程移除键值首选项的键值

XamarinEssentials教程移除键值首选项的键值 如果开发者不再使用首选项中的某一项时,可以将该项移除掉。此时可以使用Preferences类的Remove()方法,该方法可以将存在于首选项中的指定键以及...

大学霸
29分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部