Delphi获取文件创建时间和最后修改时间

uses
  System.SysUtils, System.IOUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  CreationTime, LastWriteTime: TDateTime;
begin
  CreationTime := TFile.GetCreationTime('C:\A.TXT');
  LastWriteTime := TFile.GetLastWriteTime('C:\A.TXT');  
  Edit1.Text := '创建时间: ' + DateTimeToStr(CreationTime);
  Edit2.Text := '最后修改时间: ' + DateTimeToStr(LastWriteTime);
 end;