delphi實現控制聲音音量

當你做一個多媒體播放器時，難免少不了控制音量的大小和左右聲道的播放，下面就介紹一種控制Wave波形輸出設備音量的方法，該方法不是設置主音量。先在窗體上放兩個TTrackBar，分別命名為TrackBar1，TrackBar2，屬性Max都設置為65535，如果覺得刻度太密了，可以把Frequency屬性值設置大一些，然後在Uses段加入MMSystem，並在TrackBar1和TrackBar2的OnChange事件都寫上下列語句：

procedure TForm1.TrackBar1Change(Sender: TObject);
var Wave:string;
begin
Wave:=$+inttohex(TrackBar1.Position,4)+inttohex(TrackBar2.Position,4);
waveoutsetvolume(0,strtoint(Wave));
end;