ShellListView1有没可能实现把“文件名”为“A开头”的列出？ (50分)

ShellListView1有没可能实现把“文件名”为“A开头”的列出？

可能吗？？？

可以 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;

接受答案了.