找了一段关闭系统声音的代码，但不会如何调用，请赐教！

各位朋友，以下两段代码都能搭起来，但就是不知道该如何调用，才能真正实现用代码来开启或者关闭声音，请各位朋友赐教，谢谢！！！
uses MMSystem;
procedure TForm1.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 TForm1.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;