Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Апр

Загрузить в ListView список файлов и директорий

Posted by Chas under Delphi

я загружаю в ListView список файлов и деректорий, у меня загружаются и скрытые и нет, а как сделать чтобы загружались все кроме скрытых?

{Получение списка файлов и информации о них}

procedure TForm1.UpdateFile(LV:TListView;aPath:String);

var

Handle:THandle;

FindData:TWin32FindData;

temp_ext,Temp_Cap,result:String;

Folders:TStringList;

i,te:Byte;

begin

LV.Items.BeginUpdate; //Начинаем прорисовку списка файлов

LV.Items.Clear; //Очищаем LV

Handle:=FindFirstFile(PChar(aPath+'*.*'),FindData);

if Handle<>INVALID_HANDLE_VALUE then

 try

  Folders:=TStringList.Create;

  while FindNextFile(Handle,FindData) do

  begin

    Temp_Cap:=ExtractFileName(FindData.cFileName);

    temp_ext:=ExtractFileExt(FindData.cFileName);

    if (FindData.dwFileAttributes and faDirectory)=faDirectory then

     begin

    begin

     Folders.append('['+Temp_Cap+']');

     end

     else

   if (FILE_ATTRIBUTE_HIDDEN and FindData.dwFileAttributes) = 0 then // вставлено одно единственное условие. Сложно?

   with LV.Items.Add do begin

    if (FindData.dwFileAttributes and faDirectory)<>faDirectory then

    begin

      for te:=1 to length(Temp_Cap) do

      if Temp_Cap[te]='.' then

      Caption:=copy(Temp_Cap,1,te-1);

      SubItems.Add(Copy(temp_ext,2,Length(temp_ext)-1));

      SubItems.Add(FloatToStrF(FindData.nFileSizeHigh+FindData.nFileSizeLow,ffNumber,18,0));

    end

      else

      SubItems.Add('');

      SubItems.Add(FileTimeToDateTimeStr(FindData.ftLastWriteTime));

      Result:='';

      if (FILE_ATTRIBUTE_ARCHIVE and FindData.dwFileAttributes)>0 then Result:=Result+'a' else Result:=Result+'-';

      if (FILE_ATTRIBUTE_READONLY and FindData.dwFileAttributes)>0 then Result:=Result+'r' else Result:=Result+'-';

      if (FILE_ATTRIBUTE_HIDDEN and FindData.dwFileAttributes)>0 then Result:=Result+'h' else Result:=Result+'-';

      if (FILE_ATTRIBUTE_SYSTEM and FindData.dwFileAttributes)>0 then Result:=Result+'s' else Result:=Result+'-';

      SubItems.Add(Result);

    end;

   end;

  for i:=0 to Folders.count-1 do with LV.Items.insert(i) do

  begin

   SubItems.Add('[Папка]');

   SubItems.Add('');

   SubItems.Add(FileTimeToDateTimeStr(FindData.ftLastWriteTime));

   Caption:=Folders;

  end;

  Folders.free;

  finally

  LV.Items.EndUpdate;

  end;

end;