Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Кодек [D5, Win95/98, WinXP]


BorisMor ©   (2002-05-16 15:42:00) 

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


fore_3   (2002-06-30 12:25:00) [1]

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

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;


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

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


fore_3   (2002-05-20 20:58:00) [3]

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

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;


KilkennyCat   (2002-05-20 17:23:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо