playAlertSound


procedure playAlertSound;

Plays a sound associated with the current alert.

  var cm : command;

  begin
    showAlert('Message', 'New message arrived', loadImage('/img1.png'), ALERT_INFO);
    playAlertSound;

    cm := createCommand('OK', CM_OK, 1);
    addCommand(cm);

    repeat
      delay(100);
    until getClickedCommand <> emptyCommand;

    showForm; // this will clear alert from the screen
    ...     
  end.

See also: showAlert