rt

解决方案 »

  1.   

    一个个的比较呀, 
    取得文件的最后修改时间
    function GetFileModify(FileName:string):TDateTime;
    //取得文件的最后修改时间
    var
      sr: TSearchRec;
      DT:Tdatetime;
      FileTime: TFileTime;
      DFT: DWORD;
    begin
      if findfirst(FileName,faanyfile,sr)=0 then
      begin
        FileTimeToLocalFileTime(SR.FINDdata.ftLastWriteTime, FileTime);
        FileTimeToDosDateTime(FileTime, LongRec(DFT).HI, LongRec(DFT).LO);
        DT:=filedatetodatetime(dft);
        Result:=DT;
      end;
    end;比效法把最新的取出来就可以了~