如何打开和关闭声道？

happyyongyuan 2003-05-22 09:17:47

那位做过，给个代码好吗？

...全文

87 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

huayuxing 2003-05-22

打赏
举报

第二个
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:.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:.AVI';

MediaPlayer1.Display := Panel1;

MediaPlayer1.Open;

MediaPlayer1.Play;

SetMediaAudioOn(MediaPlayer1.DeviceId);

end;

记得给分呀！

智商无下限 2003-05-22

打赏
举报

第一个
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:.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:.AVI';

MediaPlayer1.Display := Panel1;

MediaPlayer1.Open;

MediaPlayer1.Play;

SetMediaAudioOn(MediaPlayer1.DeviceId);

end;

记得给分呀！

本文介绍了在Windows 7下如何开启四声道。

Win7设置5.1声道图文详解.docx

Win7 5.1声道设置图文教程.docx

SRS Audio Sandbox(终极音频增强软件)，解决在win7系统下，5.1声道设置不了的情况

Delphi左右声道