可以 ShellTreeView 的 属性 ObjectTypes 为 [otFolders, otNonFolders]
OnAddFolder 事件
procedure TForm1.ShellTreeView1AddFolder(Sender: TObject;
AFolder: TShellFolder
var CanAdd: Boolean);
var str: string;
begin
if not AFolder.IsFolder then
begin
str:=AFolder.DisplayName;
if str[1]='A' then
CanAdd:=true
else
CanAdd:=false;
end
else
CanAdd:=true;
end;