Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.05.04;
Скачать: CL | DM;

Вниз

звук   Найти похожие ветки 

 
gefest80   (2008-04-08 21:17) [0]

Уважаемые знатоки! Скажите, а как можно програмно изменить уровень звука в XP и VISTA? Я так понимаю нужно использовать функции API


 
Palladin ©   (2008-04-08 21:27) [1]

сам ты знаток


 
gefest80   (2008-04-08 21:35) [2]

ну хотел как лучше, поуважительнее....


 
Palladin ©   (2008-04-08 21:45) [3]

поуважительней это вот так:
Тема: Контроль общего уровня звука
Вопрос: подскажите в каком направлении копать, разделы MSDN, и/или функции API которые за это отвечают

Примечание:  Есть ли отличия стандартных подходов и подходов к этому в OS WinXP и Vista


 
Сергей М,   (2008-04-08 21:47) [4]

"Уровень звука" - эт чиво такое ?
Звук - это ж не сливной бачок, "уровень звука" в котором знаком многим, если не каждому, и угрожающее "превышение" которого грозит вселенским потопом, если его не "контролировать")..


 
gefest80   (2008-04-08 22:01) [5]

Удалено модератором


 
AIK ©   (2008-04-08 22:07) [6]

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;


 
app ©   (2008-04-09 16:12) [7]

> gefest80  (08.04.2008 22:01:05)  [5]

Повежливее, чувтсвую бить тебя будут.



Страницы: 1 вся ветка

Текущий архив: 2008.05.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
15-1206452400
No_Dead
2008-03-25 16:40
2008.05.04
Решил провести социальный эксперимент)))


2-1207365197
Крылатый
2008-04-05 07:13
2008.05.04
Доступ к локальной папке


2-1207326164
Инна
2008-04-04 20:22
2008.05.04
Печать справок


10-1145087125
Frodo44
2006-04-15 11:45
2008.05.04
Memo и Word


10-1144224575
DancerMan
2006-04-05 12:09
2008.05.04
TWebbrowser. Клик по ссылке -> MyProcedure