delphi中怎么编程实现关闭电脑扬声器的声音？

Question

for example：显示MessageBox()的时候，就会发出“咚”的一声响。还有用户的错误操作也会发声。
    我现在想在程序的某个地方可以屏蔽扬声器的声音，也要某个能实现可以恢复发声功能。
   那位有过那方面的经历，请教了！

Answer 1

http://hubdog.csdn.net/Recommend/rcAudioMixer.htm

Answer 2

前提是要在NT和2k下能实现关闭和恢复扬声器的发声。
大家有知道的能回答一下吗？等着急要啊！

Answer 3

哦 没做过！帮你顶！你看看有没有API能实现吧

Answer 4

win apiwaveOutClose  关闭声音输出设备

Answer 5

waveOutClose(HWD)
这个怎么是关闭扬声器的声音？
扬声器和声卡发声是完全不同的2回事。

Answer 6

是pc speaker?
试试,这是我在大富翁离线包里找到的.
procedure nosound;
{turn off the pc speaker}
  begin
    asm
      mov al,0
      out $61,al
    end;
  end;

Answer 7

to:maliangcat01(我是一只小小鸟) 
在nt和2k下不能用底层汇编语句。
报错：“privilege instruction”

Answer 8

是 2K 那就太难了.要得到ring0 权限,这个东西太复杂了.有文章介绍在nt下的方法,
不过大部分是C的代码,你去找一下把.