现金求一代码！！！！（本人保证汇过去！）(1分)

求代码一段！急！！！现金报酬！
在DELPHI程序中如何实现：两个声道同时为左声到，两个声道同时为右声道？？
类似解霸的声道控制!

求此源代码，以现金100元作为报酬！（日期在5月19日前）


联系:ihweb@21cn.com
如有不清楚地方请电:013929878408

查找一下，已答题一大把

http://www.delphibbs.com/delphibbs/dispq.asp?lid=363616

看WWW回答的：

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

pos:=TB_vol.Position;
vol:=(pos shl 8)or(pos shl 24);
waveoutsetvolume(0,vol);
end;

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

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

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

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



将左声道的声音发到右声道去，全部为左声， 全为右声不再重复

>>

>>

接受答案了.