Fórum Como Pegar Via Delphi A Data De Criação Do Arquivo? #320595

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function FileTimeToDTime(FTime: TFileTime): TDateTime;
var
  LocalFTime: TFileTime;
  STime: TSystemTime;
begin
  FileTimeToLocalFileTime(FTime, LocalFTime);
  FileTimeToSystemTime(LocalFTime, STime);
  Result := SystemTimeToDateTime(STime);
end;


procedure TForm1.Button1Click(Sender: TObject);

var
  SR: TSearchRec;
  CreateDT, AccessDT, ModifyDT: TDateTime;
begin
  if FindFirst(´c:\forum.zip´, faAnyFile, SR) = 0 then begin
    CreateDT := FileTimeToDTime(SR.FindData.ftCreationTime);
    AccessDT := FileTimeToDTime(SR.FindData.ftLastAccessTime);; 
    ModifyDT := FileTimeToDTime(SR.FindData.ftLastWriteTime);; 
    ShowMessage(´Created: ´ + DateTimeToStr(CreateDT) + 
      ´ Accessed: ´ + DateTimeToStr(AccessDT) + 
      ´ Modified: ´ + DateTimeToStr(ModifyDT));
  end
  else
    ShowMessage(´Desculpe, arquivo não encontrado leitorbinario´);

  FindClose(SR);
end;


end.