getfiletime()能不能做到呀?有没有人试过?没有人知道吗,高分呀??

解决方案 »

  1.   

    送你一个函数function GetFileLastWriteTim(sFileName:string;uFlag:byte):TDateTime;
    var
      ffd:TWin32FindData;
      dft:DWord;
      lft:TFileTime;
      h:THandle;
    begin
      h:=FindFirstFile(PChar(sFileName),ffd);
      if h<>INVALID_HANDLE_VALUE then
      begin
      case uFlag of
      FILE_CREATE_TIME:FileTimeToLocalFileTime(ffd.ftCreationTime,lft);
      FILE_MODIFY_TIME:FileTimeToLocalFileTime(ffd.ftLastWriteTime,lft);
      FILE_ACCESS_TIME:FileTimeToLocalFileTime(ffd.ftLastAccessTime,lft);
      else
        FileTimeToLocalFileTime(ffd.ftLastWriteTime,lft);
      end;
      FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
      Result:=FileDateToDateTime(dft);
      windows.FindClose(h);
      end
      else
      result:=0;
    end;