ShowMessage-Funktion mit Ton

[toms]

Bei den API Funktionen kommt ein Sound, sofern dies global nicht deaktiviert ist.
Bei der Delphi Variante MessageDlg() jedoch nicht.

Nachrüsten könnte man es so:

Delphi-Quellcode:

interface

uses Dialogs, Windows;

function MessageDlgS(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons = [mbOk]; HelpCtx: Longint = 0): Word;

implementation

function MessageDlgS(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;
const
  Sounds: array [TMsgDlgType] of Integer = (
    MB_ICONEXCLAMATION, MB_ICONHAND, MB_OK,
    MB_ICONQUESTION, MB_ICONASTERISK);
begin
  MessageBeep(Sounds[DlgType]);
  Result := MessageDlg(Msg,DlgType,Buttons,HelpCtx);
end;

(Quelle)