帮帮忙用过TbsSkinFileListView的请进来，或类似控件的

作者: lovemoon714   发布时间: 2011-10-15

uses Vcl.FileCtrl;

var
  sDir: string;
begin
  if SelectDirectory('这里是标题', '', sDir, [sdNewFolder, sdNewUI]) then
    ShowMessage(sDir);
end;

作者: sailxia   发布时间: 2011-10-15