function ConvertFileDateFormat(xFt:_FileTime):TDateTime; { 转换文件的时间格式 }
var
xSyst : _SystemTime;
xTemp:_FileTime;
begin
FileTimeToLocalFileTime(xFt,xTemp);
FileTimeToSystemTime(xTemp,xSyst);
ConvertFileDate:=SystemTimeToDateTime(xSyst);
end;
procedure TfmInsertWorkbookInformation.btnOkClick(Sender:TObject);
const
xFormat = 'yyyy/m/d h:mm' ; { 设定时间格式 }
Var
xTSr:TSearchRec; { 申明xTSr为一个查找记录 }
xT1,xT2,xT3:string;
begin
FindFirst('xWb.Path[0]+'\'+xWb.Name' ,faAnyFile,xTSr); { 查找目标文件 , 'xWb.Path[0]+'\'+xWb.Name': 工作簿的路径和名称 }
xT1:=FormatDateTime(xFormat,ConvertFileDateFormat(xTSr.FindData.ftCreationTime)); { 返回Excel文件的创建时间 }
xT2:=FormatDateTime(xFormat,ConvertFileDateFormat(xTSr.FindData.ftLastWriteTime)); { 返回Excel文件的修改时间 }
xT3:=FormatDateTime(xFormat,ConvertFileDateFormat(xTSr.FindData.ftLastAccessTime)); { 返回Excel文件的访问时间 }
ShowMessage(xT1);
ShowMessage(xT2);
ShowMessage(xT3);
FindClose(xTSr);
end;