[Der_G()RuNu(h]

Сообщение от Viajero

зачем тебе вообще здесь функция, если она не возвращает результат.

как это сделать (найти системные файлы) самому - я хз, в гугле нашел про такую функцию. Но с функцией у меня никак не получается, поэтому я создал процедуру Find.

Код:

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);

на примере файлов mp3 она работает, но системные файлы же так искать не будешь...
как мне функцию эту сделать или может есть другие пути решения?