左右声道的控制.

Question

能不能发给我看看？谢谢你啦！
[email protected]

Answer 1

//音量控制 
procedure TForm1.TrackBar1Change(Sender: TObject); 
var 
t,v:Longint; 
begin 
// if a=0 then Exit; 
t:=TrackBar1.Position; 
v:=(t shl 8)or(t shl 24); 
waveOutSetVolume(0,v); 
end; //左声道控制 
procedure TForm1.TrackBar2Change(Sender: TObject); 
var 
t,v:Longint; 
begin 
  t:=TrackBar2.Position; 
  waveOutGetVolume(0,@v); 
  v:=v and $ffff0000 or (t shl 8); 
  waveOutSetVolume(0,v); 
end; //右声道控制 
procedure TForm1.TrackBar3Change(Sender: TObject); 
var 
t,v:Longint; 
begin 
  t:=TrackBar3.Position; 
  waveOutGetVolume(0,@v); 
  v:=v and $0000ffff or (t shl 24); 
  waveOutSetVolume(0,v); 
end; //获得当前音量值 
procedure TForm1.FormCreate(Sender: TObject); 
var 
v:longint; 
begin 
  waveOutGetVolume(0,@v); 
  TrackBar2.Position:=hi(v); 
  TrackBar3.Position:=hi(v shr 16); 
  if hi(v)>hi(v shr 16) then 
  TrackBar1.Position:=hi(v) 
  else 
  TrackBar1.Position:=hi(v shr 16); 
end; 

Answer 2

关闭声道 
 uses MMSystem; procedure SetMediaAudioOff(DeviceID : word); 
var 
SetParm : TMCI_SET_PARMS; 
begin 
SetParm.dwAudio := MCI_SET_AUDIO_ALL; 
mciSendCommand(DeviceID, 
MCI_SET, 
MCI_SET_AUDIO or MCI_SET_OFF, 
Longint(@SetParm)); 
end; Procedure SetMediaAudioOn(DeviceID : word); 
var 
SetParm : TMCI_SET_PARMS; 
begin 
SetParm.dwAudio := MCI_SET_AUDIO_ALL; 
mciSendCommand(DeviceID, 
MCI_SET, 
MCI_SET_AUDIO or MCI_SET_ON, 
Longint(@SetParm)); 
end; procedure TForm1.Button1Click(Sender: TObject); 
begin 
{Play AVI file silently} 
MediaPlayer1.FileName := 'C:\TheWall\DELCAR2.AVI'; 
MediaPlayer1.Display := Panel1; 
MediaPlayer1.Open; 
MediaPlayer1.Play; 
SetMediaAudioOff(MediaPlayer1.DeviceId); 
end; procedure TForm1.Button2Click(Sender: TObject); 
begin 
{Play AVI with sound} 
MediaPlayer1.FileName := 'C:\TheWall\DELCAR2.AVI'; 
MediaPlayer1.Display := Panel1; 
MediaPlayer1.Open; 
MediaPlayer1.Play; 
SetMediaAudioOn(MediaPlayer1.DeviceId); 
end;