Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.06;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
2-1129103955
Zhekson
2005-10-12 11:59
2005.11.06
Контурная карта


1-1129475629
navinavi
2005-10-16 19:13
2005.11.06
Изменение формата ячеек Excel я


2-1129400637
_root
2005-10-15 22:23
2005.11.06
Exit для другой части


3-1127816452
Ольга
2005-09-27 14:20
2005.11.06
Где найти Description поля


3-1127557089
alpine
2005-09-24 14:18
2005.11.06
Проблемма с группировкой при отборе записей