Форум: "Начинающим";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];

Вниз

Звук   Найти похожие ветки 

← →
MAcK ©   (2005-10-14 17:07) [0]

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

---

← →
WondeRu ©   (2005-10-14 17:23) [1]

Эта программа увеличивает громкость выбранного канала на 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

---

← →
Antonn ©   (2005-10-14 18:11) [2]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.052 c