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.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: