Buscar

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;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Data e hora
Adicionada dia: 06/10/10
Por: Marcio Roberto Oliveira
Visualizada: 5873 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009