请教：怎样找到目录下当天修改的文件？

Question

查找目录下当天所修改的文件

Answer 1

读取文件时间与你所设定的时间比较就OK了，TSearchRec结构有时间的的。

Answer 2

function filectime(filename:string):tdatetime;
 var
      vSearchRec:   TSearchRec;   
      LocalFileTime:   TFileTime;   
      I:   Integer;   
  begin   
      if   FindFirst(filename,   faAnyFile,   vSearchRec)   =   0   then      FileTimeToLocalFileTime(vSearchRec.FindData.ftLastWriteTime,   LocalFileTime);   
      FileTimeToDosDateTime(LocalFileTime,   LongRec(I).Hi,   LongRec(I).Lo);
   //   Memo1.Lines.Values['修改时间']   :=   DateTimeToStr(FileDateToDateTime(I));
      FindClose(vSearchRec);
   result:=FileDateToDateTime(I);
end;取修改时间的函数