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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.02.2011, 18:39   #1
feras
Пользователь
 
Регистрация: 24.10.2010
Сообщений: 21
По умолчанию баланс звука

скажите пожалуйста как можно изменить баланс звука программно то есть с помощью Delphi
feras вне форума Ответить с цитированием
Старый 26.02.2011, 19:09   #2
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

попробуи тек
Код:
 uses
   MMSystem;

 procedure SetVolume(const volL, volR: Word);
 var
   hWO: HWAVEOUT;
   waveF: TWAVEFORMATEX;
   vol: DWORD;
 begin
   // init TWAVEFORMATEX 
  FillChar(waveF, SizeOf(waveF), 0);
   // open WaveMapper = std output of playsound 
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
   vol := volL + volR shl 16;
   // set volume 
  waveOutSetVolume(hWO, vol);
   waveOutClose(hWO);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   SetVolume(14000, 14000);
 end;
VirusN13
ArtGrek вне форума Ответить с цитированием
Старый 27.02.2011, 02:32   #3
feras
Пользователь
 
Регистрация: 24.10.2010
Сообщений: 21
По умолчанию Спасибо

Спасибо Большое:
feras вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Межотраслевой баланс в делфи7 MariAbrams Помощь студентам 1 17.01.2011 10:17
Структуры.Баланс скобок. Влад-mego Общие вопросы C/C++ 2 20.04.2009 00:59
Помогите сделать баланс для пользователей CasperKZ PHP 2 27.10.2008 23:34
Межотраслевой баланс кетчуп Помощь студентам 2 06.05.2007 08:18