문창완 께서 말씀하시기를...

> 지금 소리가 나는 사운드(Wav 파일)를 어떻게 죽이죠...?

> 알려주세요.

>



제가 예전에 받아놓은 팁중 AVI 출력 중 사운드 켜고 끄기라는 팁이 있어서 도움이 될까하고 올립니다.



AVI 출력 도중 Sound Volume을 켜고 끄려면...

MCI 함수로 구현해 보자...



예)



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;