Delphi 得到文件创建时间,修改时间,访问时间

  • A+
所属分类:[开发技巧]

procedure TForm1.Button1Click(Sender: TObject);
var
  FileOp : TOFStruct ;
  FHandle : THandle ;
  FInfo : TByHandleFileInformation ;
  dtCreate : TSystemTime;
  Temp:_FileTime;
begin
  memo1.clear;

  setlasterror(20);
  FHandle:= openfile(pchar(edit1.text),FileOp ,OF_READ);
  GetFileInformationByHandle(FHandle,FInfo);

  memo1.Lines.Add('File Attributes : '+inttostr(FInfo.dwFileAttributes));


  FileTimeToLocalFileTime(FInfo.ftCreationTime,Temp);
  FileTimeToSystemTime(Temp,dtCreate);

  memo1.Lines.Add('File Create Time : '
  +inttostr(dtCreate.wYear)+'-'
  +inttostr(dtCreate.wMonth)+'-'
  +inttostr(dtCreate.wDay)+' '
  +inttostr(dtCreate.wHour)+':'
  +inttostr(dtCreate.wMinute)+':'
  +inttostr(dtCreate.wSecond) );

  FileTimeToLocalFileTime(FInfo.ftLastAccessTime,Temp);
  FileTimeToSystemTime(Temp,dtCreate);

  memo1.Lines.Add('File Last Access Time : '
  +inttostr(dtCreate.wYear)+'-'
  +inttostr(dtCreate.wMonth)+'-'
  +inttostr(dtCreate.wDay)+' '
  +inttostr(dtCreate.wHour)+':'
  +inttostr(dtCreate.wMinute)+':'
  +inttostr(dtCreate.wSecond) );

  FileTimeToLocalFileTime(FInfo.ftLastWriteTime,Temp);
  FileTimeToSystemTime(Temp,dtCreate);

  memo1.Lines.Add('File Last Write Time : '
  +inttostr(dtCreate.wYear)+'-'
  +inttostr(dtCreate.wMonth)+'-'
  +inttostr(dtCreate.wDay)+' '
  +inttostr(dtCreate.wHour)+':'
  +inttostr(dtCreate.wMinute)+':'
  +inttostr(dtCreate.wSecond) );

  memo1.Lines.Add('File Path and Name : '+FileOp.szPathName);

  _lclose(FHandle);

end;

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: