|
#1
|
|||
|
|||
Скрытые файлы
Подскажите не могу догнать, допустим есть файл 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 и занова прописывать всю загрузку только видимых фалов? Нельзя ли как то без этого. Чтобы код не был громоздким) |
#2
|
||||
|
||||
с атрибутом faAnyFile будут все файлы и каталоги. и кста faHidden = 2, а не 1.
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Все спасибо NumLock за наводочку, все сделано.
Последний раз редактировалось HTTqp, 02.05.2014 в 20:37. |