![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
звук [D2005]
gefest80 © (2008-04-08 21:17:00)Уважаемые знатоки! Скажите, а как можно програмно изменить уровень звука в XP и VISTA? Я так понимаю нужно использовать функции API
app (2008-04-09 16:12:00) [1]> gefest80 (08.04.2008 22:01:05) [5]
Повежливее, чувтсвую бить тебя будут.
AIK (2008-04-08 22:07:00) [2]
Uses mmsystem, ..
...
...
procedure MyVolume(const Volume: DWord);
var X : TWAVEOUTCAPS;
begin
if WaveOutGetDevCaps(WAVE_MAPPER, @X, sizeof(X)) = MMSYSERR_NOERROR then
if X.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then WaveOutSetVolume(WAVE_MAPPER, Volume);
end;
....
Пользуешся к примеру так:
var
LeftVolume: Word;
RightVolume: Word;
begin
MyVolume(MakeLong(LeftVolume, RightVolume));
end;
gefest80 (2008-04-08 22:01:00) [3]Удалено модератором
Сергей М, (2008-04-08 21:47:00) [4]"Уровень звука" - эт чиво такое ?
Звук - это ж не сливной бачок, "уровень звука" в котором знаком многим, если не каждому, и угрожающее "превышение" которого грозит вселенским потопом, если его не "контролировать")..
Palladin (2008-04-08 21:45:00) [5]поуважительней это вот так:
Тема: Контроль общего уровня звука
Вопрос: подскажите в каком направлении копать, разделы MSDN, и/или функции API которые за это отвечают
Примечание: Есть ли отличия стандартных подходов и подходов к этому в OS WinXP и Vista
gefest80 (2008-04-08 21:35:00) [6]ну хотел как лучше, поуважительнее....
Palladin (2008-04-08 21:27:00) [7]сам ты знаток