Сортировка в ShellListView

[artemavd]

Дано: ComboBox, в котором хранится список всяких разных расширений (.ехе, .doc и т.д.) и есть ShellListView с разными файлами.
Вопрос: как сделать сортировку файлов по расширению в ShellListView с учетом выбранного расширения в ComboBox-e? Чтобы остались только те файлы, которые имеют выбранное расширение. Ведь там есть стандартная сортировка, а расширенной нету . И свойства Mask тоже нет. Как выкрутиться из этой ситуации?

[Пепел Феникса]

можно обновить лист, и использовать событие OnAddIem(вроде так, короче оно одно из первых...и в нем определяется надо ли добавлять итем в список или нет)

[artemavd]

можно обновить лист

Можно поподробнее об этом? Что значит "обновить"?

[Пепел Феникса]

заставить перечитать папки и файлы

[spamer]

Может как то так:

uses Masks;

...

procedure TForm1.ShellListView1AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
  CanAdd := MatchesMask(AFolder.PathName, '*.exe');
end;

[artemavd]

Сделал так:

procedure TForm1.ShellListView1DblClick(Sender: TObject);
var
 CanAdd: Boolean;
begin
 CanAdd:=MatchesMask(Form1.ShellListView1.Folders[Form1.ShellListView1.ItemIndex].PathName,'*.exe');
end;

Выдает ошибку: ListIndex out of bounds(-1)

[Пепел Феникса]

artemavd, вы на событие то посмотрите.

[artemavd]

А в какое событие надо поместить этот код?

[Пепел Феникса]

procedure TForm1.ShellListView1AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);