delphi实现控制声音音量

当你做一个多媒体播放器时难免少不了控制音量的大小和左右声道的播放下面就介绍一种控制Wave波形输出设备音量的方法该方法不是设置主音量先在窗体上放两个TTrackBar分别命名为TrackBarTrackBar属性Max都设置为如果觉得刻度太密了可以把Frequency属性值设置大一些然后在Uses段加入MMSystem并在TrackBar和TrackBar的OnChange事件都写上下列语句

procedure TFormTrackBarChange(Sender: TObject);

var Wave:string;

begin

Wave:=$+inttohex(TrackBarPosition)+inttohex(TrackBarPosition);

waveoutsetvolume(strtoint(Wave));

end;