Som de erro do Windows em Delphi

Bem pessoal, me deparei com várias mensagens de erros no sistema, dai pensei, porque não colocar um som típico de erro do windows nas mensagens de erros principais?

Foi ai que encontrei a funcção:

MessageBeep(valor);

Com essa funcção consigo executar vários sons antes das minhas mensagens, o valor pode ser numérico ou sons típicos, ex:

MessageBeep(MB_ICONERROR);

MessageDLG(‘Ocorreu um erro grave’,mtError,[mbOK],0);

Essa rotina irá executar um som de erro do windows o famoso “TUM” e logo após mostrar a mensagem de erro.

Espero ter ajudado um pouco mais.

Até a próxima.