| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Звук [D7, WinXP]

MAcK ©   (2005-10-14 17:07:00) 

Здраствуйте мастера, подскажите как прогамно можно установить громкость звука и какие билиотеки надо подключить

---

Antonn   (2005-10-14 18:11:00) [1]

WondeRu ©   (14.10.05 17:23) [1]
Эта программа увеличивает громкость выбранного канала на 1000:
добавлю - максимум 65535

---

WondeRu   (2005-10-14 17:23:00) [2]

Эта программа увеличивает громкость выбранного канала на 1000:

uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
var
 vol: longint;
 LVol, RVol: integer;
begin
 AuxGetVolume(ListBox1.ItemIndex, @Vol);
 LVol := Vol shr 16;
 if LVol < MaxWord - 1000 then
   LVol := LVol + 1000
 else
   LVol := MaxWord;
 RVol := (Vol shl 16) shr 16;
 if RVol < MaxWord - 1000 then
   RVol := RVol + 1000
 else
   RVol := MaxWord;
 AuxSetVolume(ListBox1.ItemIndex, LVol shl 16 + RVol);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 i: integer;
 cap: TAuxCaps;
begin
 for i := 0 to auxGetNumDevs - 1 do
 begin
   auxGetDevCaps(i, Addr(cap), SizeOf(cap));
   ListBox1.Items.Add(cap.szPname)
 end;
end;



(c) delphiworld

---

Наверх