Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.10.2008, 21:11   #1
lionman
Пользователь
 
Регистрация: 02.10.2008
Сообщений: 31
По умолчанию Как настроить звук

Делаю проигрыватель. Как настраивать звук прям в проигрывателе. И можно с пояснениями, а то мне надо будет потом объяснять принцип работы. Заранее спасибо.
lionman вне форума Ответить с цитированием
Старый 10.10.2008, 23:16   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

А вы все же воспользуйтесь поиском по форуму. Ума много не надо - всего лишь поставить ключевым словом "плеер". Найдете и регулировку громкости, и эквалайзер, и проч. Лениться просто не надо, а самостоятельно делать хотя бы некоторые телодвижения, например, набрать своими руками целых пять букв - п, л, е, е, р...
Или вы думаете, что вы единственный оригинал, твердо решивший составить конкуренцию винампу? Да нет, полно таких...
mihali4 вне форума Ответить с цитированием
Старый 11.10.2008, 14:47   #3
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Можете сделать так:

Код:
Uses
  MMSystem;

Procedure SetWaveVolume(Const AVolume: DWord);
Var
Woc: TWaveOutCaps;
Begin
If WaveOutGetDevCaps(WAVE_MAPPER, @Woc, Sizeof(Woc)) =
MMSYSERR_NOERROR Then
Begin
If Woc.dwSupport And WAVECAPS_VOLUME = WAVECAPS_VOLUME Then
WaveOutSetVolume(WAVE_MAPPER, AVolume);
End;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Var
LeftVolume: Word;
RightVolume: Word;
Begin
LeftVolume:= StrToInt(Edit1.Text);
RightVolume:= StrToInt(Edit2.Text);
SetWaveVolume(MakeLong(LeftVolume, RightVolume));
End;
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как настроить аватар? oLMeR О форуме и сайтах клуба 7 02.12.2008 10:30
как настроить pl/sql developer 7.0? farxad SQL, базы данных 1 21.06.2008 20:44
Звук об ошибке как вырубить) Kukkk Общие вопросы Delphi 3 17.02.2008 21:41
звук и делфи, левый правый звук snusmumric Win Api 2 29.10.2007 11:10
Как настроить Delphi 7 Dentexas Общие вопросы Delphi 3 27.11.2006 20:54