function CovFileDate(Fd:_FileTime):TDateTime; { 转换文件的时间格式 } var Tct:_SystemTime; Temp:_FileTime; begin FileTimeToLocalFileTime(Fd,Temp); FileTimeToSystemTime(Temp,Tct); CovFileDate:=SystemTimeToDateTime(Tct); end; procedure TForm1.Button2Click(Sender: TObject); const Model='yyyy/mm/dd'; { 设定时间格式 } var Tp:TSearchRec; { 申明Tp为一个查找记录 } T1,T2,T3:string; begin FindFirst('D:/SQL10.TXT',faAnyFile,Tp); { 查找目标文件 } T1:=FormatDateTime(Model,CovFileDate(Tp.FindData.ftCreationTime)); { 返回文件的创建时间 } T2:=FormatDateTime(Model,CovFileDate(Tp.FindData.ftLastWriteTime)); { 返回文件的修改时间 } T3:=FormatDateTime(Model,Now); { 返回文件的当前访问时间 } FindClose(Tp); end; |