Delphi調用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;