在 Delphi 中，可以使用 Beep 过程使计算机发出指定的操作系统默认的提示音。它主要依赖于Windows 中的 API 函数 MessageBeep，

函数 MessageBeep 的原型如下：

BOOLMessageBeep(UINTuType //声音类型);

在函数 MessageBeep 中可以播放 WAV 文件。通常，在控制面板中可以设置系统事件与声音文件

的关系。可以使用函数 MessageBeep 中的参数 uType 来指定播放的声音类型。参数 uType 可以设置的数值如下：

• 0xFFFFFFFF。

• MB_ICONASTERISK。

• MB_ICONEXCLAMATION。

• MB_ICONHAND。

• MB_ICONQUESTION。

• MB_OK。

其中 0xFFFFFFFF 是使用计算机扬声器发出的标准响声，MB_OK 是系统默认的声音。如果指定的声音不能播放，则播放系统默认的声音；如果播放系统默认的声音不成功，则使用计算机的扬声器发出一个标准的响声。