Главная страница
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.013 c
2-1207590779
иван8511
2008-04-07 21:52
2008.05.04
Перемещение курсора в компоненте Edit


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


10-1144210627
alk
2006-04-05 08:17
2008.05.04
Сохранение изменений на сервере


2-1207510572
cyber-pilot
2008-04-06 23:36
2008.05.04
Работа с файлами


9-1168306609
rts111
2007-01-09 04:36
2008.05.04
Ребята, "попинайте" техно-дему. (RTS 490 Kb.)