关闭声道

最新推荐文章于 2023-05-28 09:29:36 发布

weixin_30776863

最新推荐文章于 2023-05-28 09:29:36 发布

阅读量135

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/yzryc/p/6374875.html

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;

转载于:https://www.cnblogs.com/yzryc/p/6374875.html