使用Delphi如何让主机的喇叭发出提示音。

[abcdefgdeng]

使用Delphi如何让主机的喇叭发出提示音？我使用了Beep()，但主机箱还是不发音。而Windows操作系统自己弹出报错提示窗口，或信息窗口时却可以让主机箱发“嘟”音。请问各位是什么原因？如果调用一些函数让主机箱喇叭发音？

[天鸽]

学习

[ks_reny]

    windows.beep(50,500);
裏面的參數可以自定義.

[de410]

windows.beep(523,500);

[ks_reny]

    windows.beep(1500,500);
是尖叫聲, 前面的1500代表聲音赫茲,後面的500代表持續500毫秒.

[abcdefgdeng]

论坛里的高手多，回复了快啊！谢谢各位，我没想到调用windows的beep。

[shxhark]

messagebeep(MB_ICONEXCLAMATION);
sleep(100);
messagebeep(MB_ICONINFORMATION);
sleep(250);
messagebeep(MB_ICONWARNING);