说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi中获取和修改文件的时间

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi中获取和修改文件的时间

本文介绍了在Delphi中利用系统函数和Windows API函数调用来获取和修改文件的时间信息的方法。

熟悉Windows 95/98的朋友一定经常会用单击鼠标右键的方法来查看所选定的文件的属性信息。在属性菜单中会列出该文件的创建时间、修改时间和访问时间。这些信息常常是很有用的,它们的设置一般都是由操作系统(也就是由Dos/Windows等等)自动完成的,不会让用户轻易修改。

这里,我向大家介绍在Delphi中如何实现文件时间的获取和修改方法。Delphi中提供了很完备的Windows API函数的调用接口,可以方便的进行高级Windows编程。利用Delphi中的FindFirst函数可以得到一个文件的属性记录,该记录中的FindData域中就记载了详细的文件时间信息。然而遗憾的是,FindData中的时间信息是不能直接得到的。因此,本人编写了一个转换函数来完成文件时间格式的转换。下面给出了具体的实现方法,仅供参考:

function CovFileDate(Fd:_FileTime):TDateTime;

{ 转换文件的时间格式 }

var

Tct:_SystemTime;

Temp:_FileTime;

begin

FileTimeToLocalFileTime(Fd

Temp);

FileTimeToSystemTime(Temp

Tct);

CovFileDate:=SystemTimeToDateTime(Tct);

end;

有了上面的函数支持,我们就可以获取一个文件的时间信息了。以下是一个简单的例子:

procdeure 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;

设置文件的时间要复杂一些,这里介绍利用Delphi中的DataTimePicker组件来辅助完成这一复杂的操作。下面的例子利用了四个DataTimePicker组件来完成文件创建时间和修改时间的设置。注意:文件的访问时间用修改时间来代替。使用下面的例子时,请在您的Form上添加四个DataTimePicker组件。其中第一和第三个DataTimePicker组件中的Kind设置为dtkDate,第二个和第四个DataTimePicker组件中的Kind设置为dtkTime.

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;

以上简单介绍了文件时间属性的修改方法,请注意:修改文件时间的范围是从公元1792年9月19日开始的,上限可以达到公元2999年或更高。另外,请不要将此技术用于破坏他人文件等非正当途径。

ZestFinance:前谷歌CIO创立的机器学习+大数据分析公司 7月份浏览器份额:IE仍最受欢迎 Chrome成最大赢家 2013 Q2 Android手机出货量再创新高 iPhone三年来新低 如何一个人打造日PV百万的网站架构——SDCC 2013讲师曹力专访 【一周观察】动辄9位数以上的投资,云数据中心缺口巨大! 硬件创业到底有多火? 知名网站分享:PHP代替Perl,Redis置换MySQL,日处理过亿PV 涨姿势了:Unity CEO聊如何玩转开发者生态 移动周报:再造Ruby女神背后的开发故事 超算什么都弱爆了:模拟一秒人脑计算需要8.3万处理器40分钟 人才短缺不能只靠等 看分析人士给硅谷的3个方案 九个相当有吸引力的WebGL演示 巨人网络朱永明谈运营:游戏就是社会的缩影 Dragon Forged创始人:不想当空军的开发者,不是好程序员 创业者应该怎样走出idea迷宫? TIOBE 2013年8月编程语言排行榜:Java领衔称霸 Gartner新报告:为改善风险管理,云服务合同需要更透明 没有银弹:探讨 Java 8 新增特性的优缺点 SDCC 2013议题更新 Pinterest架构实践、推荐系统、微信应用... 拥有82944个处理器的超级计算机 40分钟才能模拟一秒人脑活动 剑指IE10 最新测试版Chrome增加更多触摸屏功能 理性对待“云”——冲向“云”之前你需考虑的事 为Ruby On Rails开发者准备的5款IDE 一位开发人员的生日愿望清单 当“硅”已走到尽头,我们又该用什么去维系摩尔定律? 高端大气上档次 8位iOS顶级女程序媛 谁都可以做开发者:微软推出Windows Phone Web工具 Mozilla正式发布Firefox 23 新增混合内容拦截 网络监控功能 14条建议,使你的IT职业生涯更上一层楼 依托微信的电商产品实践——SDCC 2013讲师潘凡专访 IBM将向Google、英伟达等授权Power架构技术 当SARS向医疗条件较差或很差的中国内陆与农村地区蔓延的时候,那才是真正恐怖的后果! vb.net的打包问题 很小的程序,出问题~ 我遍了一个简单的ODBC实现,怎么不能通过? &&为何意? sql安全问题 在jsp中有哪个函数可以得到ping一个IP的时间,还有怎样得到从查询到得到结果所发费的时间? 谁有关于sql数据库开发的论文,题目是学生档案管理,相关的也可以。(给500) 请教思归!!asp.net中弹出对话框的问题 怎样设置权限。 很简单的一个关于在文本框中换行的问题 急求VB+sqlserver开发学生档案管理方面的论文。高分(500) 还是多表问题 只要用连续打印发票时,第一张正确,第二张就不正常,我调了不是走多了就是走少了第三张一样的。 请问,ConnectionString 属性尚未初始化? 爱上一朵有主之花,郁闷ing,请各位出出注意。 为何我没法将贴子发出去?! 爱上一朵有主之花,郁闷ing,请各位出出注意。 请问全局对象为什么先赋值为NULL? 急急急急!!急死我了!大哥们帮帮忙,打印不正确走纸问题! 硬汉对照:一位计算机大师,LISP语言的创造者之人生感悟。看者玩呗。[zt] 爱上一朵有主之花,郁闷ing,请各位出出注意。 请看这段JDBC代码 ./ 是什么意思? 如何把WEB Method指定为用GET方法传递常数? 像MSN那种有邮件时就提示的那个小窗口要怎么做? 用什么API函数可以实现big5转换为gb 关于文件上传问题,大家都使用htmlcontrols.htminputfile控件吗? 各位大虾,关于扫描仪的错误2800:0000是指什么错误?急!!! 请问如何在载入页面前,跳出一个询问用户名和密码的窗口,然后验证用户身份? MSsqlserver 意外终止服务 www服务器过一段时间就停止服务? resin 中jsp文件无法显示图片,怎么回事? 请教思归!!asp.net中弹出对话框的问题 debug命令f怎么用呀? 笔记本电池,能外挂吗?~~~~ 工具欄的顯示應算較專業的問題 寻求共同创业的伙伴! COM+组件远程调用问题 如何才能把计算稿保存下来? 急。chr 与ord的运用! 为什么当我在dreamweaver里把表格的单元格宽度设定为像素了,可当我的字符串超过它的宽度,它不换行?而是拉长我的单元格 使用delphi第三方控件出现的问题 用什么函数把int转成nvarchar 关于上网的问题 关于图片的循环移动问题 寻求共同创业的伙伴! 关于Keil C51的编译问题 谁有《 Inside The C++ Object Model》英文版电子版 请教《深入浅出MFC》中有关“动态创建”的一个问题。 图像缩放和居中显示的问题 水稻稻叶发黄是什么病底叶先黄逐渐向上发展,此时稻已抽稻穗缺肥是肯定的,不只是缺肥,两个综合吧! 帮忙给下面的句子找找错误首先使我们养成良好习惯 to begin with to make people form good habits.其次树立正确的人生观 then set up the correct outlook on life.我们将努力做好这件事 we will try our best to do thing 简述经典力学的发展过程,举例其中重要人物的贡献.结合牛顿自然哲学思想谈谈自己的体会. 使用玉米苗后 除草剂的土水稻育苗有要害吗我们家想用玉米地里的土席稻苗.玉米地去年打的玉米苗后除草剂【玉飞】牌的,用这样的土育苗会有药害吗? 这个句子有3处错误,暑假的一天中午,黎明正在家里看“西游记”.正当他看的津津有味的时候,居然听到妈妈在屋外大声喊道:“下雨啦,快收衣服!”他急忙赶快向屋外跑去. 椭圆到相离直线的最短距离怎么求? 养殖场养了黑猪和白猪共4头,黑猪每头重108千克,白猪每头重124千克,4头猪可能共重多少千克? 帮助找找句中的错误.They can not put up with that the west culture destroys our traditional culture .The travelers hoping to enjoy Chinese traditional culture will not feel our culture exactly. 子弹的速度 c什么时候念音标k什么时候念音标sC在英语单词中,什么时候念音标/k/什么时候念音标/s/ 半径为R的光滑半圆环轨道固定在竖直平面内,从与半圆环相吻合的光滑斜轨道上高h=3R处,释放一个质量为m的小球,求在A.B点时的速度大小 视你如命表示我的宿命 翻译成英文怎么说? 棉花烂根、死苗的原因谁能帮着找找棉花前期烂根、死苗、枯黄萎病、中后期落叶、落桃等病症的发病原因?最好能有详细、对路的回答,不是在网上拷贝过来的!或者帮着找一个这方面的专业 如图所示,一光滑斜面连接着一光滑竖直圆轨道轨道半径为R,现有一质量为m的小球从h=3R的高度由静止滑下,试通过计算说明质点能否滑过轨道的最高点?求对轨道的压力 数学椭圆上的电到直线的最短距离问题.椭圆X^2/16+y^2/9上的电到直线l:x+y-9=0的距离最小值.答案是2√2用三角函数什么的.我用直线系算的平行与直线做椭圆切线.求切线与直线距离得4啊.求大神 故事关于黑猪白猪的要搞笑!有分~关于黑猪白猪的要最搞笑的要它们两只猪的故事要同时出现 哪些牌子的手机有英语字典,具体型号是什么? 蜜蜂、蟋蟀、萤火虫、青蛙、知了同大灯笼、弹琴、跳舞、唱歌、敲鼓连线 人们生活交往和公共生活中应当遵守的最基本道德准则是什么 英语词典哪些牌子比较好买电子词典主要是为了发音,帮忙推荐个价格便宜的.音标我没学会,买的那一本新英汉大词典第四版单词都不读 漂白粉受潮了,会影响出厂水的余氯吗?请各位大虾帮帮偶的忙哦!偶要晕死鸟 ```谢谢鸟哈`` 公民在公共生活领域应当遵守的道德准则是什么? 吊扇怎么固定在%吊扇怎么固定在天花板上面呀!用什么东西固定的 自来水工艺中,余氯偏低是什么原因? 深度技术系统下载要具有哪些特点的比较好呢? 英语读书机中哪个牌子最实用?教材最全面 功能最齐全 售后服务有保障 价格最合理的读书机是哪个牌子的>? 在2HgO=2Hg+O2中,谁是氧化剂?谁是还原剂?Why?在2HgO=2Hg+O2中,谁是氧化剂?谁是还原剂?为什么?.在2Na+Cl2=2NaCl中,为什么钠失去两个电子? 微秒怎么表示 ()是做人的基本准则,是人们古往今来的交往中产生的最根本的道德规范,也是会计职业道德的精髓.A 爱岗敬业 B 诚实守信 C 坚持准则 D 奉献社会 溶解CuS或SnS2沉淀应该选用HCl或HNO3? 并写出其反应式 “十里黄云白日曛,北风吹雁雪纷纷”是谁的诗 家庭文明公约的交往与生活怎么写 CuS能不能溶解在H2SO4中? 千里黄云白日曛,接下来诗句是什么 鄂鱼用什么呼吸的.. 如何用氧化还原法溶解CuS 鸡蛋壳有什么用处? 鳄鱼的双重呼吸不需要了.在2010年的一项研究,发现美国短吻鳄有独特呼吸方式.[2]这项研究发现,当美国短吻鳄吸气时,吸进的空气会进入第二支气管,流经交换气体的第三支气管,最后进入第一 第6小题填时间单位? 千里黄云白日曛,北风吹雁雪纷纷.莫愁前路无知己,天下谁人不识君.这首诗描述了哪些景物?千里黄云白日曛,北风吹雁雪纷纷.莫愁前路无知己,天下谁人不识君.----《别董大》 高适这首诗描述 鳄鱼皮很粗糙,为什么在水里那么灵活?一般鱼类的皮都很光滑,虽然鳄鱼是爬行动物,但是他也是在水里扑出来捕捉猎物,按道理说鳄鱼皮不应该这么粗糙的. 如图所示,一质量为m的小球由足够高的h处沿光滑轨道由静止开始滑入环形轨道,则 送别的古诗最佳答案挑别董大二首(其一) 千里黄云白日曛,北风吹雁雪纷纷.莫愁前路无知己,天下谁人 又麻烦大家帮忙看看这几个字是什么字 谢谢了. 碱式碳酸锌制备活性氧化锌的化学方程式 千里黄云白日曛,北风吹雁雪纷纷.莫愁前路无知己,天下谁人不识君的意思 麻烦帮忙想两个词语.可以把黛雪,这个名字放进去,最好一共八个字.谢谢 中国古代《庖丁解牛》的故事反映的职业道德精神是 千里黄云白日曛.北风吹雁雪纷纷.莫愁前路无知己,天下谁人不知君诗人是谁? 半径为R的竖直圆轨道,一质量为M的球从轨道最低点以v=根号6RG开始沿圆形轨道运动,求通过最高点v 新装修房能使用什么药剂处理? 别董大 千里黄云白日曛,北风吹雁雪纷纷.莫愁前路无知己,天下谁人不识君?1.解释诗句意思 2.这首诗是( )时期著名诗人( )的作品,他的诗歌语言质朴,( ),( ),风格十分鲜明,这也是一首 麻烦帮忙找找句子中的错误All what I know is that I'm thinking of you almost all the time.I want to know you,touch you.I can't image how I'll feel when I can see one of you standing right in face of me.I even don't know what you're like exa 水厂过滤添加药剂,二氧化氯,氯气,氯片有什么区别啊? 水稻幼苗烂根,不长,怎么办 饲养场里有黑猪和白猪共180头,其中黑猪比白猪少3分之1,黑猪有多少头? 哪里的水质处理药剂最好!是游泳池的水质处理药剂,现在的游泳池水质都太差啦,池水有的很浑浊,水质颜色有发黄的,有发白的,还有水质颜色是绿色的! 为什么土猪养殖的时间比白猪比较长? 碳酸钾和碳酸氢钾水溶液都呈碱性是否就意味着都是碱式盐? 1.小车与货物的质量为50kg,沿踏板将其匀速推上汽车.若车厢离地面的高度为1.0m,踏板的长度为4.0m,求在在个过程中人做了多少功,人的推力有多大?如果直接把小车与货物搬上去呢?不计摩擦阻力 本周四立冬秋天将继续 杭州日后或常雾西湖申遗成功两年多 调研发现景区交通日本未从日俄会谈获实质成果 牵制中国英国男子患怪病 身体变形困家中韩俄峰会拟发涉朝声明俄强化防范“黑寡妇”袭击韩国防长承诺整顿网军国资委:地方国企效益下滑 一些地方仍美妇人送儿子手机前“约法18章” 网六大问题威胁食品安全 可追溯体系不完罗德曼“推销”朝鲜篮球队为朝鲜筹钱英15岁少年欲滑雪闯南极古巴关停“娱乐吧”美澳联手监听亚太法国两记者命丧马里俄罗斯严防“黑寡妇”袭击 确保冬奥会德国政府代表批评日本:对东亚紧张局势日本未从日俄会谈获实质成果 牵制中国教育经费管理存在多项问题 回应质疑制日本未从日俄会谈获实质成果 牵制中国多地汽车限行 分析称重污染后实行不会“绿”和“富”如何双赢(绿色焦点)清理违规渔具近十二万张第九届东北亚博览会开幕人民日报 20以优良党风政风带动社风民风十年不大庆 精简但精彩公租自行车 京城渐立足(走转改·一线全运会如何接地气(全运视野)因地制宜用好“污水”(专家视角)人民日报 20哈萨克斯坦热切期待习主席访问证监会“12386”热线试运行湿地“长大” 鱼跃鸟鸣深紫外固态激光源装备通过验收人民日报:中国信心为世界经济复苏注入陈风楚韵荷花香悠悠姑嫂塔(美丽中国)马娇被破格招入国家队习近平出席二十国集团李源潮会见美国客人东北主要农区20日前无霜冻
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘