Delphi 5 VCD播放声音控制(200分)

Delphi 5 VCD播放声音控制
1).use MCIsendCommand(),How control sound
静音 左声道 右声道 立体声

2)Hwaveout=0, 在waveoutoutgetvolume()中可执行,
可在如waveoutpause,waveoutrestar...却无效.;
并怎样实现静音 左右声道 立体声

急!急!

procedure TForm1.TrackBarrChange(Sender: TObject);
var
pos,vol:longint;
begin

pos:=TrackBarr.Position;
waveoutgetvolume(0,@vol);
vol:=vol and $ffff0000 or (pos shl 8);
waveoutsetvolume(0,vol);
end;


procedure TForm1.TrackBar1Change(Sender: TObject);
var
pos,vol:longint;
begin

pos:=TrackBar1.Position;
waveoutgetvolume(0,@vol);
vol:=vol and $0000ffff or (pos shl 24);
waveoutsetvolume(0,vol);
end;

1、 MCIsendCommand发送下面的字符串
set audio all off

set audio left off
set audio right on

set audio left on
set audio right off

set channels 1
set channels 2

多人接受答案了。