|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Найти системные файлы
Может кто знает, как найти системные файлы?
P.S. насколько я знаю, для этого есть function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; function FindNext(var F: TSearchRec): Integer; как ими пользоваться? я написал один код, но вышла бесконечная рекурсия. Подскажите, кто, что знает??? |
#2
|
||||
|
||||
все знают - в справке пример есть:
Цитата:
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Цитата:
а где сама функция? |
#4
|
||||
|
||||
Вынеси содержимое из "клика" в функию и получишь требуемое:
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#5
|
|||
|
|||
Цитата:
у меня с ней проблемы... |
#6
|
||||
|
||||
Цитата:
Цитата:
Пишу программы за еду. __________________ |
#7
|
|||
|
|||
Цитата:
Код:
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; var Path: string; Attr: Integer; begin Path:= 'c:\*.*'; Attr:= faHidden + faSysFile; FindFirst(Path, Attr, F); if F.name <> '' then begin ListBox1.Items.Add(F.name); Добавление в TListBox имени найденного файла while FindNext(F) = 0 do ListBox1.Items.Add(F.name); end; FindClose(F); end; Последний раз редактировалось Der_G()RuNu(h, 10.08.2011 в 14:31. |
#8
|
||||
|
||||
Ух ты, ***ическая сила!!! Ну кто ж так делает???
Цитата:
Например: Код:
function myFindSystemFiles(const Path: string; Attr: Integer; var F: TSearchRec): Integer - Товарищ прапорщик!!! Остановите поезд!!! - Поезд СТОЙ! РАЗ! ДВА! Последний раз редактировалось Viajero, 10.08.2011 в 14:43. |