有关左声道右声道

Question

怎样在DELPHI中实现左右声道的转换?
在DELPHI中如何实现超级解霸的桌面播放功能?
怎样控制亮度\声音\望各位大虾多多帮忙呀!!!

Answer 1

桌面播放参见帖子
http://www.csdn.net/develop/Read_Article.asp?Id=16510左右声道控制
use   mmsystem;waveOutSetVolume(0,soundvalue)//soundvalue的高位左声道，低位右声道

Answer 2

{立体声}
procedure TForm1.N_StereoClick(Sender: TObject);
begin
  N_Stereo.Checked := True;
  N_Left.Checked := False;
  N_Right.Checked := False;
  mciSendString('set all audio all on', nil, 0, Handle);
{立体声}
end;{左声道}
procedure TForm1.N_LeftClick(Sender: TObject);
begin
  N_Stereo.Checked := False;
  N_Left.Checked := True;
  N_Right.Checked := False;
  mciSendString('set all audio all off', nil, 0, Handle);
  mciSendString('set all audio left on', nil, 0, Handle);
{左声道}
end;{右声道}
procedure TForm1.N_RightClick(Sender: TObject);
begin
  N_Stereo.Checked := False;
  N_Left.Checked := False;
  N_Right.Checked := True;
  mciSendString('set all audio all off', nil, 0, Handle);
  mciSendString('set all audio rigth on', nil, 0, Handle);
{右声道}
end;