|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
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 |
