Question

我尝试使用MessageBeep API播放声音，但没有播放声音。

MessageBeep(MB_ICONINFORMATION);
MessageBeep(MB_ICONASTERISK);
MessageBeep(MB_ICONEXCLAMATION);
MessageBeep(MB_ICONERROR);
MessageBeep(MB_ICONHAND);
MessageBeep(MB_ICONINFORMATION);
MessageBeep(MB_ICONQUESTION);
MessageBeep(MB_ICONSTOP);
MessageBeep(MB_ICONWARNING);
MessageBeep(MB_OK);

是的，插入了扬声器
是音量已调高
是的，我听到其他MessageBeeps（UAC，默认，错误等）
是的，我听到其他应用程序的音频（what i'm listing to right now is irocnical）
Windows 10.0.14393 64位
以交互方式连接（即不通过终端服务远程桌面会话）
函数（返回BOOL）返回true
是的，控制面板的声音小程序中设置了＆＃34;默认＆＃34; 声音
Beep 服务已启动（虽然此处Beep功能不相关）
不允许应用程序对我的默认（且仅限）声音设备进行独占控制：
Windows不会尝试播放任何声音;你可以看到没有＆＃34;输出水平＆＃34;在音量混合器中：

我错过了什么？

重现问题的示例代码

procedure TForm4.Button1Click(Sender: TObject);
begin
    MessageBox(0, 'About to play sounds', 'TestApp', MB_OK);

     MessageBeep(MB_ICONINFORMATION);
     MessageBeep(MB_ICONASTERISK);
     MessageBeep(MB_ICONEXCLAMATION);
     MessageBeep(MB_ICONERROR);
     MessageBeep(MB_ICONHAND);
     MessageBeep(MB_ICONINFORMATION);
     MessageBeep(MB_ICONQUESTION);
     MessageBeep(MB_ICONSTOP);
     MessageBeep(MB_ICONWARNING);
     MessageBeep(MB_OK);
     MessageBeep($ffffffff);
    MessageBox(0, 'After playing sounds', 'TestApp', MB_OK);
end;

经过测试：