Artigos Delphi Dicas - Consultar o atributo 'Última modificação' de um arquivo

Consultar o atributo 'Última modificação' de um arquivo

 

function FileLastModified(const TheFile: string): string;

var

  FileH: THandle;

  LocalFT: TFileTime;

  DosFT: DWORD;

  LastAccessedTime: TDateTime;

  FindData: TWin32FindData;

begin

  Result := '';

  FileH := FindFirstFile(PChar(TheFile), FindData);

  if FileH <> INVALID_HANDLE_VALUE then

  begin

   Windows.FindClose(Handle) ;

   if (FindData.dwFileAttributes AND

       FILE_ATTRIBUTE_DIRECTORY) = 0 then

    begin

     FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFT);

     FileTimeToDosDateTime(LocalFT,LongRec(DosFT).Hi, LongRec(DosFT).Lo);

     LastAccessedTime := FileDateToDateTime(DosFT);

     Result := DateTimeToStr(LastAccessedTime);

    end;

  end;

end;

 

Adicione um OpenDialog e um Button. Digite o seguinte código no evento OnClick do botão:

 

if OpenDialog1.Execute then

  Label1.Caption := 'Data de modificação: ' +

    FileLastModified(OpenDialog1.FileName) +

    ' do arquivo '+ OpenDialog1.FileName;