Erstens hat Sakura
in der Code Library schon mal nen passenden Code gepostet und zweitens ist ja wohl diese Zeile
UnterordnerDurchsuchen (ext,pfad + '\' + sr.Name);
fürs rekursive durchsuchen verantwortlich.
Also änder die in die folgenden Zeilen:
Delphi-Quellcode:
if CheckBox1.Checked then begin
UnterordnerDurchsuchen (ext,pfad + '\' + sr.Name);
end;
Das müßte theoretisch funktionieren.