msgbeepu.pas

DelphiWin32核心API参考光盘内容.是学习书籍中的源码,便于学习.

unit MsgBeepU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.DFM}

const
  {an array of sound constants}
  Sounds: array[0..5] of UINT = ($FFFFFFFF,MB_ICONASTERISK,MB_ICONEXCLAMATION,
                                 MB_ICONHAND,MB_ICONQUESTION,MB_OK);

procedure TForm1.Button1Click(Sender: TObject);
begin
  {play the selected sound}
  MessageBeep(Sounds[ComboBox1.ItemIndex]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  {under Windows 95/98, the parameters are ignored, but under Windows NT/2000,
   this will produce a sound through the PC speaker}
  Windows.Beep(500, 500);
end;

end.