quinta-feira, 24 de agosto de 2017

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

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; 

Nenhum comentário:

Postar um comentário