Buscar

Retornando a hora da criação de um diretório

Código

Function DirectoryTime(aDir: String): String;
var
srFile: TSearchRec;
begin
if FindFirst('C:WINDOWS',faDirectory,srFile)=0 then
begin
result := TimeToStr(FileDateToDateTime(srFile.Time));
end;
end;

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Arquivos
Adicionada dia: 24/06/03
Por: Felipe Monteiro
Visualizada: 1828 vezes

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