Карта сайтаСсылкиКонтакты

Изменение громкости звука из кода Delphi

PDF Печать
Статьи

Ниже приведен пример, как программно управлять громкостью звука из кода Delphi:


uses MMSystem;

type
   TVolumeRec = record
     case Integer of
       0: (LongVolume: Longint) ;
       1: (LeftVolume, RightVolume : Word) ;
     end;

const DeviceIndex=5
       {0: Wave
        1: MIDI
        2: CDAudio
        3: Line-In
        4: Microphone
        5: Master
        6: PC-loudspeaker}
     
procedure SetVolume(aVolume: Byte) ;
var
  Vol: TVolumeRec;
begin
   Vol.LeftVolume := aVolume shl 8;
   Vol.RightVolume:= Vol.LeftVolume;
   auxSetVolume(UINT(DeviceIndex), Vol.LongVolume) ;
end;

function GetVolume: Cardinal;
var
  Vol: TVolumeRec;
begin
   AuxGetVolume(UINT(DeviceIndex), @Vol.LongVolume) ;
   Result:=(Vol.LeftVolume + Vol.RightVolume) shr 9;
end;

Автор: Zarko Gajic


 

Комментарии   

 
0 #1 Эдуард 11.04.2017 12:17
Я новичок в программировании.

Мне не понятно: с помощью какого компонента (скажем, в Делфи) управлять этой громкостью? Если с помощью TrackBar, то как привязать TrackBar к этому вашему коду?

Буду благодарен, если ответите!
Цитировать
 
 
0 #2 Serge 11.04.2017 21:21
При движении ползунка вызываешь функцию SetVolume и передаешь ей значение TrackBar.
Цитировать
 

Добавить комментарий


Защитный код
Обновить