[HTTqp]

Подскажите не могу догнать, допустим есть файл ini с настройками, есть код который загружает список файлов:

Код:

var
SR:TSearchRec;
LI:TListItem;
Icon:TIcon;
FileInfo:SHFileInfo;
Temp_Ext,Attr:String;
begin
LV.Items.BeginUpdate;{Начинаем прорисовку}
Icon:=TIcon.Create;{Создаем ICON}
try
 LV.Items.Clear;{Очистка LV}
 if FindFirst(aPath+'*.*',faAnyFile,SR)=NO_ERROR then{Проверяем отсутствие ошибок}
  try
  i:=0;
   repeat
   if {тут проверка на значение в ini файле} then
   if (SR.Attr and faHidden)<>1 then {проверка на атрибут}
    begin
    if (SR.Attr and faDirectory)<>faDirectory then
     begin
//
//
     {тут загрузка интересующей инфы}
//
//
     end;
   until FindNext(SR)<>NO_ERROR;
 finally
 FindClose(SR);
 end;
finally
LV.Items.EndUpdate;{Завершаем прорисовку}
end;
end;

Смотрите если например на месте проверки ini указано что нужно загрузить все файлы включая скрытые мы их загружаем, а если надо только выдимы то как сделать, писать else и занова прописывать всю загрузку только видимых фалов? Нельзя ли как то без этого. Чтобы код не был громоздким)

[NumLock]

с атрибутом faAnyFile будут все файлы и каталоги. и кста faHidden = 2, а не 1.

[HTTqp]

Все спасибо NumLock за наводочку, все сделано.