声音问题

Question

procedure TTransComMainForm.Button1Click(Sender: TObject);
begin
MessageBeep(MB_OK);
end;为什么点击Button1时没有声音发出？

Answer 1

to:WWWWA(aaaa) 
喇叭发声

Answer 2

Windows.Beep(4100, 100);
能让蜂鸣器发声。

Answer 3

各位：
   我知道你们的方法是OK，我也知道。谢谢各位的帮忙。
   但我的问题是
procedure TTransComMainForm.Button1Click(Sender: TObject);
begin
MessageBeep(MB_OK);
end;为什么点击Button1时没有声音发出？不是要改变其他方法。

Answer 4

MessageBeep(MB_OK)是从音箱发声，你必须打开音箱，如你用
喇叭发声，必须用windows.beep(523,500)，我已调试通过。
你试一下。