在delphi xe2中用Windows.Beep(1000, 500)已经没用，在xe2中怎么可以放beep声音？

[wallyhost5]

用Winapi.Windows.Beep(1000, 500);可以编译，但不发生，并处于窗口冻结状态，鼠标点击没有反应。

[Lactoferrin]

Beep和是不是xe2没关系，这是windows api

[cdchq]

是的，beep是win api
而且并不是每台电脑上都有蜂鸣器发声

[wallyhost0]

关键是 Windows.Beep(1000, 500);编译通不过。

[rwlin]

我在xe2 试了是可以有蜂鸣的。

如果只写beep ，默认是是sysutils 下的beep

在xe2下：有以下几种写法：

beep :默认是是sysutils 下的beep //等同于 windows.messagebeep;
Winapi.Windows.Beep(1000, 500); //蜂鸣器，等同于delphi7的windows.beep
Windows.Beep(1000, 500); //编译不过；

[kaikai_kk]

MessageBeep(0);