
11.02.2010, 18:35
|
|
Познавший АНТИЧАТ
Регистрация: 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 ;(
|
|
|