JPGetFileList

procedure JPGetFileList(

  FileMask: string;

  StartDir: string;

  var FileList: TStringList;

  RecurseDepth: Integer = DEFAULT_RECURSE_DEPTH;

  AcceptDirSymLinks: Boolean = True;

  AcceptFileSymLinks: Boolean = True;

  EnumDirsProc: TJPEnumDirsProc = Nil;

  EnumFilesProc: TJPEnumFilesProc = Nil;

  SimpleEnumDirsProc: TJPSimpleEnumProc = Nil

);