原来在delphi里切换左右声道这么简单，中文google搜来搜去都是同一篇不中用的帖子，国内的网站就是爱抄袭和转载，很难找到有用的信息。
uses MMSystem;
var
Wave : String;
begin
try
Wave := ‘$’ + IntToHex(0, 4) + IntTOHex(5 * 5000, 4); //左声道
MMSystem.waveOutSetVolume(0, StrTOInt(Wave));
MediaPlayer1.Play;
except
end;
end;
Wave : String;
begin
try
Wave := ‘$’ + IntToHex(0, 4) + IntTOHex(5 * 5000, 4); //左声道
MMSystem.waveOutSetVolume(0, StrTOInt(Wave));
MediaPlayer1.Play;
except
end;
end;
右声道的话，
Wave := ‘$’ + IntToHex(5 * 5000, 4) + IntToHex(0, 4);
下面要去秋叶原淘个便宜的USB声卡，然后看看怎么切换声卡。
我刚刚到日本，住在神奈川东桥本，我看了看以前有你的msn但不知还对不对，所以最好就是来这里给你留言，给我留个手机吧，有空了去找你玩。我现在还没有手机。antique 可以给我发信或留言，谢谢！
[回复]
1. 哇！你在用delphi啊，好亲切的code
2. 看到antique了，再哇一下
[回复]
你还在写code啊？
[回复]
Delphi写应用小程序方便快捷，这么多年来俺一直用它！
现在写心理学实验程序，也都是用delphi
[回复]
心理学还需要自己写程序，真是稀奇了。呵呵。我2000年左右的时候也用过delphi来赚钱，挺好的工具。
[回复]