как выключить в активном окне звук delphi

[KWN, lnc]

у меня чета не пашет! (( регулирует только окошко проекта.

[Aliens_wolfs]

Сделай изменения

//Добавь процедуру для изменения громкости музыки Midi,
procedure MidiSetVolume(const volL, volR: Word);
 var
 hWO: HWAVEOUT;
   vol: DWORD;
 begin
  midiOutOpen(@hWO, MIDI_MAPPER, 0, 0, 0);
   vol := volL + volR shl 16;
   // set volume
  midiOutSetVolume(hWO, vol);
   mixerClose(hWO);
 end;

//Сделай изменения в таймере
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Следим за загрузкой игры
If ProcessExists('GOM.exe') then
begin
SetVolume(10000, 10000); //Громкость звуков когда игра загружена
MidiSetVolume(8000, 8000); //Громкость Midi когда игра загружена
end
else
begin
SetVolume(65000, 65000);//Громкость звуков когда игра закрыта
MidiSetVolume(65000, 65000);//Громкость Midi когда игра закрыта
end;
end;

Подбери нужную громкость меняя значения в SetVolume и MidiSetVolume
Можно было бы все в Aux громкость общую менять но вдруг понадобиться отделно регулировать звук и музыку.

[vladiny]

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

Сделай изменения громкость на минимум поставь и проверь

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Следим за загрузкой игры, имя игры введи ниже и подбери нужную громкость меняя значения в параметре SetVolume
If ProcessExists('GOM.exe') then
SetVolume(0, 0) //Громкость на минимуме
else
SetVolume(65000, 65000); //Громкость когда игра закрыта
end;

Alien :P зайди в скайп.

[KWN, lnc]

даже здесь он не меняет ((( VKMusic4.exe

[Slym]

точно не знаю, но похоже waveOut похоже у каждого приложения "свой" и регулируется только свое...
значит нужно стать "своим" инжектиться в целевое приложение и уже в инжекте регулировать

[KWN, lnc]

вот это я и пытаюсь понять - как?!

[Aliens_wolfs]

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

[GunSmoker]

Прежде всего замечу, что вопрос не имеет смысла для Windows XP и ниже - там не существует понятия per-application volume, там есть только master volume. Поэтому этот вопрос можно рассматривать только в Windows Vista и выше.

Мат-чать по контролю громкости в Windows Vista и Windows 7. Подробнее.

Соответственно, как я понимаю, тебе нужен "Simple Value" для конкретного приложения.

Для получения сессии приложения можно использовать IAudioSessionManager.

Аудио сессия идентифицируется двумя или тремя вещами: GUID сессии, ID процесса и флагом кросс-процессности (если флаг установлен, то ID процесса игнорируется).

"Simple volume" контролирует громкость всех аудио потоков в одной аудио сессии.

Большинство аудио-библиотек (включая Legacy-функции, DirectSound и т.п.) используют GUID_NULL в качестве идентификатора сессии. Но если приложение само указывает другой GUID, то у сессии будет иной GUID. В одном приложении может быть несколько сессий. Хотя самый типичный случай - одна сессия.

Регулятор громкости в системе, на самом деле, тебе врёт. Не существует такой вещи как "громкость приложения ABC". Регулятор громкости просто берёт все аудио сессии в системе и группирует их вместе, помечая их согласно ID процесса. Так что в общем случае у тебя может быть показано более одного ползунка для одной программы (если она использует две аудио-сессии), равно как и разделяемые сессии, не принадлежащие приложению (и тогда они будут не подписаны).

Теперь что касается ответа на вопрос... мне лень копать. Могу набросать примерный план-набросок.

Рекомендую глянуть в сторону IAudioSessionEnumerator - им можно перечислить сессии для устройства.

План действий (примеры кода см. по ссылкам):
- Создаём IMMDeviceEnumerator (CoCreateInstance).
- У него вызываем метод GetDefaultAudioEndpoint для получения устройства по умолчанию (динамики).
- У него вызываем метод Activate для получения менеджера сессий.
- У менеджера сессий вызываем GetSessionEnumerator для получения энумератора.
- Вызываем энумератор для перечисления сессий.
- Имя сессии можно узнать GetDisplayName, иконку - через GetIconPath, а её GUID - через GetGroupingParam.
- Получаем регулятор громкости сессии вызовом метода GetSimpleAudioVolume у менеджера сессий, передав ему GUID сессии с предыдущего пункта (не уверен, но можно попробовать запросить регулятор у сессии напрямую через QueryInterface).
- Контролируем громкость каждой сессии.

С тебя 500 рублей :P

[raxp]

Прежде всего замечу, что вопрос не имеет смысла для Windows XP и ниже

...замечу также, что еще в посту #9 об этом было сказано, но как то прошло мимо ушей TC.

[KWN, lnc]

хм.. долговато чета я вожусь и не пойму ((