Order and save right now! 20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

Others

⤷ 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;

More for developers

● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes