Как получить общий уровень звука системы?

[egorchik73]

Можно ли в Delphi отследить уровень воспроизводимого системой Windows 7 звука.
Например, пока играет тихая спокойная фоновая музыка с низким уровнем воспроизведении, то ничего не делаем, но если в музыке происходит резкий всплеск уровня (например ударили в барабаны), или другая программа (например Скайп) резко зазвонила, то запрограммировать какое либо СОБЫТИЕ-1.
Есть ли функция, которая возвращала бы общий уровень звука воспроизводимого несколькими приложениями Windows 7 в данный момент?

Что-то наподобие:

procedure TForm1.Button1Click(Sender: TObject);
begin
   x := (Функция возвращающая общий уровень звука посылаемого на аудио-выход в децибелах);
end;

[Streletz]

В Windows 7 отдельная регулировка уровня громкости для каждого приложения. Копайте в сторону работы с микшером в Windows 7.

[egorchik73]

Сообщение от Streletz

В Windows 7 отдельная регулировка уровня громкости для каждого приложения. Копайте в сторону работы с микшером в Windows 7.

Да, но ведь все равно выход-то на динамики один. И регулировка громкости есть основная в микшере, все остальные дополнительные. Мне нужна вроде бы по сути простая функция, которая возвратит уровень сигнала в децибелах, который подается на выход на динамики. Искал долго в Инете но так ничего подходящего и не нашел. Хотя в самой Windows 7 если открыть микшер, во время воспроизведения там графически отображается прыгающая полоска с уровнем звука. Вот как ее захватить бы?

[Streletz]

Сообщение от egorchik73

Искал долго в Инете но так ничего подходящего и не нашел. Хотя в самой Windows 7 если открыть микшер, во время воспроизведения там графически отображается прыгающая полоска с уровнем звука. Вот как ее захватить бы?

По идее, до текущего уровня сигнала можно достучаться через WinAPI.

[knight]

unsigned int GetWaveVolume(void)
{
        WAVEOUTCAPSA Woc;
        DWORD Volume ;
        if(waveOutGetDevCapsA(WAVE_MAPPER, &Woc, sizeof(Woc)) ==MMSYSERR_NOERROR)
                if(Woc.dwSupport && WAVECAPS_VOLUME == WAVECAPS_VOLUME)
                        waveOutGetVolume((void*)WAVE_MAPPER, &Volume);
        return Volume;
}
void SetVolume(unsigned int SetVolume)
{
        WAVEOUTCAPSA Woc;
        DWORD Volume ;
        if(waveOutGetDevCapsA(WAVE_MAPPER, &Woc, sizeof(Woc)) ==MMSYSERR_NOERROR)
                if(Woc.dwSupport && WAVECAPS_VOLUME == WAVECAPS_VOLUME)
                        waveOutSetVolume((void*)WAVE_MAPPER, SetVolume);
}
 
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
        Form1->TrackBar1->Position=GetWaveVolume()>>16;
        Form1->TrackBar2->Position=GetWaveVolume()&0x0000FFFF;
}
 
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
        SetVolume(MAKELONG(Form1->TrackBar1->Position,Form1->TrackBar2->Position));
}
 
void __fastcall TForm1::TrackBar2Change(TObject *Sender)
{
        SetVolume(MAKELONG(Form1->TrackBar1->Position,Form1->TrackBar2->Position));
}

для борладн билдера интерфейс. два трэкбара- правый и левый каналы.
Для Delphi тоже самое, только перевести все в pascal представление

Если же нужно анализировать сам сигнал (системная громкость будет одна и та же, а уровень звука будет меняться)
тогда уже нужно использовать преобразование Фурье....
Брать кусочками звук в буфер - анализировать и вычислять уровень

Где-то у меня пример такой проги был, если найду - выложу

Прогу не нашёл, но вот что есть про анализ сигналов

http://lightportal.at.ua/publ/cvetom...n_api/3-1-0-72