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

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

解决方案 »

  1.   

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

  2.   

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

  3.   

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

  4.   

    我在xe2 试了是可以有蜂鸣的。如果只写beep ，默认是是sysutils 下的beep在xe2下：有以下几种写法：beep :默认是是sysutils 下的beep    //等同于 windows.messagebeep;
    Winapi.Windows.Beep(1000, 500);   //蜂鸣器，等同于delphi7的windows.beep
    Windows.Beep(1000, 500);     //编译不过；