[fr33m4n]

{ CreateFileList позволяет производить поиск файлов с разными раширениями
в указанном каталоге, его подкаталогах или сразу по всему диску и создавать
файл-лист.

procedure CreateFileList (
LogFile: String; // имя файла, в который будут записаны имена найденых файлов
StartDir: String; // каталог, в которым производится поиск
Mask: String ='*.*'; // маска файлов (масок может быть несколько см. ниже)
FindSubDir: Boolean = True // определяет нужно ли искать в подкаталогах
);

LogFile
Полное имя файла, например: c:\FileList.txt

StartDir
Каталог, в которым производится поиск, например: c:\windows

Mask
Необязательный; маска файлов, например: *.txt. по умолчанию - *.*
Можно указать сразу несколько разных масок, разделенных любым символом
(но только одним!), например: '*.doc;*.txt;*.log' или '*.doc *.txt *.log'
Следите за тем, чтобы в маске не было лишних символов,
в противном случае процедура уйдет в бесконечный цикл!

FindSubDir
Необязательный; разрешает поиск в подкаталогах. По умолчанию = True

}