请问怎样才能监视 蜂鸣器 是否发声？

我在做一个程序需要从 蜂鸣器 的发声来取报警动作。厂家有另一个应用程序会监视现场设备的报警信号，但是只能产生 蜂鸣器 报警发声。我需要用报警触发其它的事件。望给出具体实施办法，最好能有源码。VB 和 DELPHI 的都可以。谢谢！！！