Жми-форум обо всём

Trojan.WinSpy.921:e0c47a5d8f3ca2158d72b7072acfc4d7:18944

spytnik mail.ru:ad7bf7ecad07a9e54de1303eb2b1e220:174080

Procedure ScanDir(Dir:String);//Название процедуры и входящие данные
   Var
   SR        :TSearchRec;
   FindRes,i :Integer;//Переменные для хранения данных
begin
   FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR);//Указываем директорию и маску для поиска
      

     if SUBDIR then //Переменная должна иметь значение ложь или правда,отвечает на вопрос сканировать подпапки или нет.
     if ((SR.Attr and faDirectory)=faDirectory) then //Если найдена папка то...
       begin
         ScanDir(Dir+SR.Name+'\'); //Запскаем сами себя повторно
         FindRes:=FindNext(SR);  
         Continue;//Продолжаем поиск
       end;
     end;
//Здесь можно вставить отправку пути к найденому файлу в ядро
     FindRes:=FindNext(SR);//Продолжаем поиск
   end;
   FindClose(SR);//Если больше ничего не найдено-заканчиваем поиск и выходим из процедуры.
end;