获取文件修改

function GetFileLastAccessTime(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.ftLastAccessTime,lft);
        end;
        FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
        Result:=FileDateToDateTime(dft);
        windows.FindClose(h);
    end
    else
      result:=0;
    end;

    函数的返回值为 TdateTime 日期格式数据。

 

function GetFileLastAccessTime(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.ftLastAccessTime,lft);
        end;
        FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
        Result:=FileDateToDateTime(dft);
        windows.FindClose(h);
    end
    else
      result:=0;
    end;

    函数的返回值为 TdateTime 日期格式数据。

   

function GetFileLastAccessTime(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.ftLastAccessTime,lft);
        end;
        FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
        Result:=FileDateToDateTime(dft);
        windows.FindClose(h);
    end
    else
      result:=0;
    end;

    函数的返回值为 TdateTime 日期格式数据。

    本文来自“十万个为什么”电脑学习网 http://www.why100000.com