Mega Code Archive
Play an avi file that has sound, silently
<![CDATA[
Question:
How can I play an AVI file that has sound silently without
adjusting the volume?
Answer:
The following example demonstrates playing an AVI file
silently by turning off the MCI audio channels in code.
Example:
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;
]]>