Buscar por:

Como obter a data e hora de acesso, criação e alteração de um arquivo

Código

//Usamos o objeto TSearchRec para retornar as datas e horas de um arquivo.

  var

    SearchFile: TSearchRec;

    lpSystemTime: TSystemTime;

  begin

    { arquivo } 

    FindFirst(‘c:ActiveDelphi.exe’,faAnyFile,SearchFile);

    try

      { Criação }

      FileTimeToSystemTime

      (SearchFile.FindData.ftCreationTime,lpSystemTime);

      Edit1.text:=DateTimeToStr(SystemTimeToDateTime(lpSystemTime));

      { Modificado }

      FileTimeToSystemTime

      (SearchFile.FindData.ftLastWriteTime,lpSystemTime);

      Edit2.text:=DateTimeToStr

      (SystemTimeToDateTime(lpSystemTime));

      { Acessado }

      FileTimeToSystemTime

      (SearchFile.FindData.ftLastAccessTime,lpSystemTime);

      Edit3.text:=DateTimeToStr(SystemTimeToDateTime(lpSystemTime));

    finally

      FindClose(SearchFile);

    end;

  end;