[CheshireCat]

Hello,

try this:

Code:

procedure TForm1.sButton1Click(Sender: TObject);
begin
sShellListView1.Mask := '*.exe;*.ini';
end;

I hope you mean ShellListView instead ShellTreeView 🙂

[Dennis445]

Thanks for the reply however I do need it for shelltreeview.

[CheshireCat]

maybe it works with the method AddFolder …

Code:

procedure TForm1.sShellTreeView1AddFolder(Sender: TObject;
AFolder: TacShellFolder; var CanAdd: Boolean);
var
Ext: string;
const
Mask = '.exe';
begin
Ext := ExtractFileExt(AFolder.DisplayName(seSystem));
CanAdd := AFolder.IsFolder or (CompareText(Mask, Ext) = 0);
end;

[Dennis445]

That works, thank you.

I also want to add that with your code if I wanted to have multiple ext in the tree I extended the “or”

Mask[0] := '.exe';

Mask[1] := '.ini';

CanAdd := AFolder.IsFolder or (CompareText(Mask[0], Ext) = 0) or (CompareText(Mask[1], Ext) = 0);

is this the best way to have several file types show?

[CheshireCat]

'Dennis445' wrote:

… is this the best way to have several file types show?

I think this is the best way 🙂

[Dennis445]

Thank you, I very much appreciate the advice.

[Author]

Posts