本文整理自网络，侵删。
WinAPI: MessageBeep - 播放一个系统声音
//声明:
MessageBeep(
uType: UINT {参数是个常数; 根据不同的常数发出不同的声音, 也就是调用了不同的 wav}
): BOOL;
//参数 uType 可选值:
MB_OK = 0;
MB_ICONHAND = 16;
MB_ICONQUESTION = 32;
MB_ICONEXCLAMATION = 48;
MB_ICONASTERISK = 64;
--------------------------------------------------------------------------------
//举例, 下面代码会发出错误警告
begin
MessageBeep(16);
end;
--------------------------------------------------------------------------------
//另外 Delphi 的 Beep 方法在 SysUtils 单元是这样实现的:
procedure Beep;
begin
MessageBeep(0);
end;
相关阅读 >>
Delphi 检查程序是否在（vm，vpc等）虚拟机运行 Delphi(测试可用)
Delphi webbrowser的关于流载入流保存和流生成
Delphi 实现类似windows的查找功能-遍历整个硬盘目录
更多相关阅读请进入《Delphi》频道 >>
