Форум: "Media";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];
ВнизКодек Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.015 c