JPGetFileListObj

procedure JPGetFileListObj(

  FileMask: string;

  StartDir: string;

  var FileList: TStringList;

  RecurseDepth: Integer = DEFAULT_RECURSE_DEPTH;

  AcceptDirSymLinks: Boolean = True;

  AcceptFileSymLinks: Boolean = True;

  EnumDirsProc: TJPEnumDirsProcObj = Nil;

  EnumFilesProc: TJPEnumFilesProcObj = Nil;

  SimpleEnumDirsProc: TJPSimpleEnumProcObj = Nil

);