请教：如何将 SheelTreeView 所选择的文件夹中所有文件名都放入 listbox 中？？

Question

如题。在 button 单击后 SheelTreeView 所选文件夹的所有文件名都列入 listbox 中望高手赐教！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
  Found: Integer;
begin
  try
    ShowMessage(ShellTreeView1.SelectedFolder.PathName);
    Found := FindFirst(ShellTreeView1.SelectedFolder.PathName+ '\*.*', 0, SearchRec);
    while Found = 0 do
    begin
      ListBox1.Items.Add(SearchRec.Name);
      Found := FindNext(SearchRec);
    end;
  finally
    FindClose(SearchRec);
  end;
end;

Answer 2

多谢 wuqiu(午秋) ！再次请教：如果对加入的文件进行筛选，要如何做比如某文件夹，我只加入*.mp3,*.swf,*.avi 文件，那Found := FindFirst(ShellTreeView1.SelectedFolder.PathName+ '\*.*', 0, SearchRec);该怎么改？？

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
  Found: Integer;
begin
  try
    ShowMessage(ShellTreeView1.SelectedFolder.PathName);
    Found := FindFirst(ShellTreeView1.SelectedFolder.PathName+ '\*.*', 0, SearchRec);
    while Found = 0 do
    begin
      if (ExtractFileExt(SearchRec.Name)= '*.mp3')or
      (ExtractFileExt(SearchRec.Name)= '*.swf')or
      (ExtractFileExt(SearchRec.Name)= '*.avi') then      
      ListBox1.Items.Add(SearchRec.Name);
      Found := FindNext(SearchRec);
    end;
  finally
    FindClose(SearchRec);
  end;
end;