Mega Code Archive

 

Categories / Delphi / Forms

 

Play a waveform sounds

Title: Play a waveform sounds Use MessageBeep function for solving of this problem. Parameter of this function is sound type. var MyType: Integer; ... procedure TForm1.Button1Click(Sender: TObject); begin MessageBeep(MyType); end; procedure TForm1.ComboBox1Change(Sender: TObject); begin case ComboBox1.ItemIndex of 0: MyType:=MB_ICONASTERISK; 1: MyType:=MB_ICONEXCLAMATION; 2: MyType:=MB_ICONHAND; 3: MyType:=MB_ICONQUESTION; 4: MyType:=MB_OK; end; end;