Кодек

← →
BorisMor (2002-05-16 15:42) [0]

Как можно узнать каие видео кодеки установлены в системе.
(интересует DivX)

← →
KilkennyCat (2002-05-20 17:23) [1]

Есть такая функция в DirectShow, только не помню название

← →
fore_3 (2002-05-20 20:58) [2]

Добавление в ывпадающее меню установленных кодеков:

While (EnumFilters.Next(1, BaseFilter, nil)=S_OK) do
begin
BaseFilter.QueryFilterInfo(FilterInfo);
menu:=tmenuitem.Create(popupmenu1.Items[1]);
form3.PopupMenu1.Items[1].Add(menu);
menu.Caption:=FilterInfo.achName;
menu.OnClick := PopupMenuItemsClick;// assign it an event
menu.Tag:=x;
x:=x+1;
end;

← →
Мастер Денис (2002-06-26 18:45) [3]

А как с этими кодеками дальше работать?

← →
fore_3 (2002-06-30 12:25) [4]

Можно вот так:

procedure TForm3.PopupMenuItemsClick(Sender: TObject);
var BaseFilter: IBaseFilter;
begin
with Sender as TMenuItem do
FilterGraph.FilterGraph2.FindFilterByName(StringToOleStr(caption), BaseFilter);
ShowFilterPropertyPage(form3,BaseFilter);
BaseFilter := nil;
end;

Кодек Найти похожие ветки