解决方案 »

  1.   

    Delphi中取得和设置硬盘上文件的创建日期、修改日期、访问日期、文件属性function   FileAge(const   FileName:   string):   Integer;   $[SysUtils.pas   
    功能     返回文件创建的时间   
    说明     文件不存在则返回-1   
    参考     function   Windows.FindFirstFile   
    例子   
    ///////Begin   FileAge,DateTimeToStr,FileDateToDateTime   
    procedure   TForm1.Button1Click(Sender:   TObject);   
    begin   
          SpinEdit1.Value   :=   FileAge(Edit1.Text);   
          if   SpinEdit1.Value   >   0   then   
              Edit2.Text   :=   DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));   
    end;   
    ///////End   FileAge,DateTimeToStr,FileDateToDateTime   
    首部     function   FileGetDate(Handle:   Integer):   Integer;   $[SysUtils.pas   
    功能     返回文件的修改时间   
    说明     读取失败则返回-1   
    参考     function   Windows.GetFileTime   
    例子   
    ///////Begin   FileGetDate   
    procedure   TForm1.Button1Click(Sender:   TObject);   
    var   
          I:   Integer;   
    begin   
          I   :=   FileOpen(Edit1.Text,   fmOpenRead);   
          if   I   <   0   then   Exit;   
          SpinEdit1.Value   :=   FileGetDate(I);   
          Edit2.Text   :=   DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));   
          FileClose(I);   
    end;   
    ///////End   FileGetDate   
    ────────────────────────   
    首部     function   FileSetDate(const   FileName:   string;   Age:   Integer):   Integer;   overload;   $[SysUtils.pas   
    首部     function   FileSetDate(Handle:   Integer;   Age:   Integer):   Integer;   overload;   platform;   $[SysUtils.pas   
    功能     返回设置文件的修改时间   
    说明     修改成功则返回0   
    参考     function   Windows.SetFileTime   
    例子     SpinEdit1.Value   :=   FileSetDate(Edit1.Text,   DateTimeToFileDate(StrToDateTime(Edit2.Text)));   
    ────────────────────────       
    首部     function   FileGetAttr(const   FileName:   string):   Integer;   platform;   $[SysUtils.pas   
    功能     返回文件的属性   
    说明     读取失败则返回$FFFFFFFF   
    参考     function   Windows.GetFileAttributes   
    例子     SpinEdit1.Value   :=   FileGetAttr(Edit1.Text);   
    ────────────────────────   
    首部     function   FileSetAttr(const   FileName:   string;   Attr:   Integer):   Integer;   platform;   $[SysUtils.pas   
    功能     返回设置文件的属性   
    说明     设置成功则返回0   
    参考     function   Windows.SetFileAttributes   
    例子     SpinEdit1.Value   :=   FileSetAttr(Edit1.Text,   SpinEdit2.Value);   
    ────────────────────────