Delphi 調用 WinAPI：MessageBeep 播放系統聲音

簡單好用的系統提示音

MessageBeep 依指定類型播放系統預設的 .wav 聲音，無需自備音檔。Delphi 內建的 Beep 程序實際上就是呼叫 MessageBeep(0)。

函數宣告

function MessageBeep(uType: UINT): BOOL; stdcall;

常用 uType 常數

範例：播放錯誤聲

begin
  MessageBeep(16); // MB_ICONHAND
end;

SysUtils.Beep 實作參考

procedure Beep;
begin
  MessageBeep(0);
end;

適合在表單驗證失敗、長時間運算完成等情境給予使用者聽覺回饋。