JPGetFileList2

procedure JPGetFileList2(

  FileMask: string;

  StartDir: string;

  var FileList: TStringList;

  RecurseDepth: Integer = DEFAULT_RECURSE_DEPTH;

  AcceptDirSymLinks: Boolean = True;

  AcceptFileSymLinks: Boolean = True;

  EnumFilesProc2: TJPEnumFilesProc2 = Nil;

  AcceptFileProc: TJPAcceptFileProc = Nil

);