![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Кодек [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, только не помню название