Mostrar un MessageDlg con su correspondiente sonido asociado

[dec]

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:


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;