|
|
Регистрация | << Правила форума >> | 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. |
#9
|
|||
|
|||
и все равно не катит... теперь пишет, что Path: string; Attr: Integer; неизвестные идентификаторы.
Как и где их объявить? В процедуре когда их пишешь, все нормально, но в функции никак... |
#10
|
||||
|
||||
Ну дык, ты ж почитай, как правильно процедуры и функции оформлять.
Path и Attr не могут быть сразу и параметрами и локальными переменными. И зачем тебе вообще здесь функция, если она не возвращает результат. - Товарищ прапорщик!!! Остановите поезд!!! - Поезд СТОЙ! РАЗ! ДВА! |
#11
|
|||
|
|||
Цитата:
Код:
procedure Find; var Searchrec: TSearchRec;//инфа о файле или каталоге F: TSearchRec; Path: string; Attr: Integer; begin //Искать все файлы в заданной директории с расширение .wav Path:= 'E:\Музыка\Arash - Donya\*.mp3'; //которые имеют атрибуты "Только для чтения" и "Архивный" Attr:= faReadOnly + faArchive; 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);} MainForm.Memo1.Lines.Add(F.name); {ChDir(SearchRec.Name);//войти в каталог Find;//поиск в подкаталоге ChDir('..');//выйти из каталога} while FindNext(F)=0 do MainForm.Memo1.Lines.Add(F.name); end; FindClose(F); как мне функцию эту сделать или может есть другие пути решения? |
#12
|
||||
|
||||
Цитата:
Код:
FileAttrs := FileAttrs + faSysFile; Код:
Path:= 'E:\Музыка\Arash - Donya\*.mp3'; Attr:= faReadOnly + faArchive; Пишу программы за еду. __________________ |
#13
|
|||
|
|||
Цитата:
|
#14
|
|||
|
|||
Цитата:
|
#15
|
||||
|
||||
Цитата:
ЗЫ. червя на крючок, крючок в воду... копай, копай здесь его много... (С) Лева Соловейчик, "Особенности национальной рыбалки" сорри за оффтоп Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 16.08.2011 в 09:07. |
|
Опции темы | Поиск в этой теме |
Опции просмотра | |
|
|