снимать звук не со стерео микшера а с микрофона

[nick_us]

Подскажите пожалуйста, как мне программно переключить, чтобы по умолчанию звук снимался не со стерео микшера а непосредственно с микрофона. Визуально это делается очень просто переключением галочки, а вот как это реализовать программно???

[notHaker]

Простите что без примеров, так со лба запросто не напишу, давно было... Но в MMSystem вроде должно быть API для управления микшером системы. Достаточно попуглить какой нибудь исходник, а дальше дело техники.

[webfriker]

nick_us поделись кодом (если еще остался) как снять звук со стерео микшера. интерисует именно эта проблема тк звук нужно снимать исходящий и входящий. Буду очень благодарен!!

[alexcoder]

На Delphi кода, к сожалению, нет. Есть на си. При желании разобраться можно.
В примере звук захватывается с микшера. Чтобы захватывать с микрофона, нужно в строке:

Res = waveInOpen((HWAVE *)&In,-1,&Format,(DWORD)WorkerThreadId,0,CALLBACK_THREAD);

заменить -1 на UID микрофона (просто число типа 0,1,2...). А чтобы найти микрофон, нужно вызвать waveInGetNumDevs. Эта функция возвращает количество устройств в системе. А затем, добавляя в Combo на форме, результат функции waveInGetDevCaps для каждого UID от 0 до waveInGetNumDevs, можно сделать выбор микрофона.