Buscar por:

Pegar data da criação do arquivo

Código

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;

 