Показать сообщение отдельно

  #5  
Старый 11.02.2010, 18:35
Nightmarе
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763

Репутация: 1680


По умолчанию

Цитата:
Сообщение от Jingo Bo  
Вот, держи, модуль AMixer.pas

Создаёшь класс TAudioMixer, потом в свойстве Destinations переходишь на первый Destination(воспроизведение), там ищешь в массв-свойстве Connections микрофон(по типу) и потом как только соединение найдёшь вызываешь <созданы_миксер>.setMute(destionation , connection, true); destionation - обычно в 0(воспроизведение), connection - индекс нйденого микрофона.

http://slil.ru/28632240
У меня так:

procedure TForm1.Button1Click(Sender: TObject);
var
lol:TAudioMixer;
begin
lol:=TAudioMixer.Create(nil);
lol.Destinations.Connections
end;

Отсутствует Connections ;(
 
Ответить с цитированием