关闭声道

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:TheWallDELCAR2.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:TheWallDELCAR2.AVI';
  MediaPlayer1.Display := Panel1;
  MediaPlayer1.Open;
  MediaPlayer1.Play;
  SetMediaAudioOn(MediaPlayer1.DeviceId);
end;