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

转载自 http://www.cnblogs.com/jieke/archive/2013/01/11/2855782.html

本文介绍了在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年或更高。另外，请不要将此技术用于破坏他人文件等非正当途径.

API版本：

function GetFileTime(sFileName:string;TimeType:Integer):TDateTime; 
var 
ffd:TWin32FindData; 
dft:DWord; 
lft,Time:TFileTime; 
H:THandle; 
begin 
H:=Windows.FindFirstFile(PChar(sFileName),ffd); 
//找到文件sFileName并填充其TWin32FindData类 
if(H<>INVALID_HANDLE_VALUE)then 
//文件找到，根据TimeType返回相应时间信息 
begin 
case TimeType of 
0:Time:=ffd.ftCreationTime; 
1:Time:=ffd.ftLastWriteTime; 
2:Time:=ffd.ftLastAccessTime; 
end; 
Windows.FindClose(H);

//由于只查找一个文件，所以关掉句柄H 
FileTimeToLocalFileTime(Time,lft); 
//转换FILETIME格式成为localFILETIME格式 
FileTimeToDosDateTime(time,LongRec(dft).Hi,LongRec(dft).Lo); 
//转换FILETIME格式成为DOStime格式 
Result:=FileDateToDateTime(dft); 
//最后，转换DOStime格式成为Delphi的TdateTime格式 
end 
else 
//没找到文件返回0 
result:=0; 
end;