La siguiente función muestra el diálogo que se consigue con la función "MessageDlg", pero, además de eso añade a esta el que se ejecuta el sonido asociado al tipo del mensaje que se necesite mostrar al usuario:
Código Delphi
[-]
uses
Dialogs;
function MessageDlgSonoro(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
const
S: array [TMsgDlgType] of integer = (MB_OK, MB_ICONHAND,
MB_ICONQUESTION, MB_ICONASTERISK, MB_ICONEXCLAMATION);
begin
MessageBeep(S[DlgType]);
Result := MessageDlg(Msg,DlgType,Buttons,HelpCtx);
end;