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;