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;
From:http://tw.wingwit.com/Article/program/Delphi/201311/8492.html