|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.10.2007, 18:01 | #1 |
Пользователь
Регистрация: 08.10.2007
Сообщений: 11
|
Текущий уровень звука !
Пожалуйста помогите, как замерить текущий уровень звука
в Видовсе, не на микрофоне или лин. входе. И если можно, скинтье ссылку, где б было рассказано про программирование звука в Винде (просто). Заранее спасибо !!!! |
11.10.2007, 10:21 | #3 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
function GetWaveVolume: DWord;
var Woc: TWAVEOUTCAPS; Volume: DWord; begin result := 0; if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) = MMSYSERR_NOERROR then if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then begin WaveOutGetVolume(WAVE_MAPPER, @Volume); Result := Volume; end; end;
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
11.10.2007, 10:25 | #4 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Квэнди, добавлю uses MMSystem
Life is too short, play more...
Как правильно задавать вопросы |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Условие на текущий год. | ГОСЕАН | БД в Delphi | 2 | 27.06.2008 11:27 |
Delphi 6 - Программа должна узнать уровень загруженности процессора | Никки | Общие вопросы Delphi | 3 | 20.11.2007 19:40 |
Задача по паскалю. 3 уровень. | Сергей1 | Помощь студентам | 4 | 20.11.2007 11:20 |
Задача по Паскалю. 1 уровень сложности. | Сергей1 | Помощь студентам | 2 | 19.11.2007 22:45 |
Уровень значимости Assembler'а сегодня | [Kaiser] | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 15 | 07.09.2007 09:05 |