Fórum Data/Hora de Arquivo movimentado.. #326948

function DataDeCriacao(Arq: string): TDateTime;
var
  ffd: TWin32FindData;
  dft: DWORD;
  lft: TFileTime;
  h: THandle;
begin
  h := Windows.FindFirstFile(PChar(Arq), ffd);
  try
    if (INVALID_HANDLE_VALUE <> h) then begin
      FileTimeToLocalFileTime(ffd.ftCreationTime, lft);
      FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo);
      Result := FileDateToDateTime(dft);
    end;
  finally
    Windows.FindClose(h);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Data: TDateTime;
begin
  Data := DataDeCriacao(´C:\Arquivo.XXX´);
  ShowMessage(DateTimeToStr(Data));
end;