A função abaixo mostra como adquirir a data e hora de um arquivo

function GetFileDate(Arquivo: String): String;
var
FHandle: integer;
begin
  FHandle := FileOpen(Arquivo, 0);
  try
  Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
  finally
  FileClose(FHandle);
end;
end;
    

Autor : desconhecido

Voltar