首页 / 软件开发 / Delphi / Delphi调用WinAPI: MessageBeep - 播放一个系统声音

Delphi调用WinAPI: MessageBeep - 播放一个系统声音2012-04-04 cnblogs 万一//声明:

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;