|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.06.2008, 08:18 | #1 |
Пользователь Подтвердите свой е-майл
Регистрация: 26.03.2008
Сообщений: 42
|
Управление громкостью
Подскажите пожалуйста, как в windows программно управлять
общей громкостью и другими, например "Wave/MP3", "MIDI Synth", "S/PDIF-ln", "Line-in" и т.д. Заранее спасибо. |
29.06.2008, 12:53 | #2 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Попробуй так:
procedure SetVolume(const volL, volR: Word); var hWO: HWAVEOUT; waveF: TWAVEFORMATEX; vol: DWORD; begin FillChar(waveF, SizeOf(waveF), 0); waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0); vol := volL + volR shl 16; waveOutSetVolume(hWO, vol); waveOutClose(hWO); end; procedure TForm1.Button1Click(Sender: TObject); begin SetVolume(14000, 14000); end; Или можешь воспользоваться отличными компонентами: VolumeControl.rar Amixer.zip
Всегда рад помочь!
|
29.06.2008, 15:43 | #3 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Ну или вот эта тема, мне помогла.
http://www.programmersforum.ru/showt...EA%EE%F1%F2%FC
Всё гениальное - просто!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Управление голосом | prizrak1390 | Общие вопросы Delphi | 2 | 24.06.2008 21:04 |
управление CD ROMom | Cricket2007 | Помощь студентам | 4 | 16.06.2008 16:01 |
Управление приложениями | voron29 | Общие вопросы Delphi | 1 | 14.03.2008 12:38 |
Управление Монитором | _XspeC_ | Общие вопросы Delphi | 3 | 26.03.2007 19:28 |