Дело в том что перечислить фильтры системы ето просто
- Код: Выделить всё
Private Sub RefreshRegFilters()
' update the listbox of registered filters
' using the global variable gRegFilters
Dim filter As IRegFilterInfo
lstFilters.Clear
If Not gRegFilters Is Nothing Then
For Each filter In gRegFilters
lstFilters.AddItem filter.Name
Next filter
End If
If lstFilters.ListCount > 0 Then
lstFilters.ListIndex = 0 ' select first in list
End If
End Sub
а вот как получить по и мени фильтра его свойвства
примерно как ето делается в видео плеерах как ЛайтАлой или Media Player Classic
