class function GetFiles(const Path: string): TStringDynArray;

class function GetFiles(const Path: string;  const Predicate: TFilterPredicate): TStringDynArray;

class function GetFiles(const Path, SearchPattern: string): TStringDynArray;

class function GetFiles(const Path, SearchPattern: string;  const Predicate: TFilterPredicate): TStringDynArray;

class function GetFiles(const Path, SearchPattern: string;  const SearchOption: TSearchOption): TStringDynArray; overload; static;

class function GetFiles(const Path, SearchPattern: string;  const SearchOption: TSearchOption; const Predicate: TFilterPredicate): TStringDynArray; overload; static;

class function GetFiles(const Path: string;  const SearchOption: TSearchOption; const Predicate: TFilterPredicate): TStringDynArray; overload; static;

var

    sFile: string;

    fp: TDirectory.TFilterPredicate;

begin

    //

    fp := function(const Path: string; const SearchRec: TSearchRec): Boolean

        begin

            Result := (Pos('a', SearchRec.Name) > ) and

              (SearchRec.Attr and faHidden <> faHidden); //文件名包含'a'且不为隐藏文件

        end;

    try

        for sFile in TDirectory.GetFiles(

                'H:\tmp1', //'H:\tmp1'

                '*.txt', //后缀为.txt

                TSearchOption.soAllDirectories,// 'H:\tmp1'目录下的所有文件

                fp) do

            ListBox1.Items.Add(sFile);

    except

        on e: Exception do

        begin

            MessageDlg(e.Message, mtError, [mbok], );

            Exit;

        end;

    end;

end;