如何才能得到一个目录下所有文件的列表？

Question

procedure FunFindFile(aPath, aFileName: String);  //p为路径字符，带‘\’
var
  SR: TSearchRec;
  SearchStr: String;
begin
{$WARN SYMBOL_PLATFORM OFF}
  if FindFirst(aPath + aFileName, faArchive, SR) = 0 then
  try
    repeat
      SearchStr := aPath + SR.Name;
      //Synchronize(ShowFile);
    until (FindNext(SR) <> 0) ;
  finally
    SysUtils.FindClose(SR);
  end;
end;procedure FunFindAll(S: string); //s为路径字符，带‘\’
var
  SR: TSearchRec;
begin
  if FindFirst(S + '*.*', faDirectory, SR) = 0 then
    try
      repeat
        if ((SR.Attr and faDirectory) <> 0) and (SR.Name[1] <> '.') then
        begin
          FunFindFile(S , SR.Name + '\');
          FunFindAll(S + SR.Name + '\');
        end;
      until (FindNext(SR) <> 0) ;
    finally
      SysUtils.FindClose(SR);
    end;
end;

Answer 1

    ShellTreeView1: TShellTreeView;
    ShellListView1: TShellListView;

Answer 2

方案1：用FindFirst、FindNext、FindClose来得到
方案2：用一个不可见的FileListBox控件，指定其Directory，就可以通过其Items来得到文件列表。