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;