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

  • 主题发起人 主题发起人 dana
  • 开始时间 开始时间
D

dana

Unregistered / Unconfirmed
GUEST, unregistred user!
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;
 
接受答案了.
 
后退
顶部