É necessário estar declarado mmSystem na seção uses,
em versões unicode declare Winapi.MMSystem.
Crie um novo projeto, adicione um botão e no evento Onclick
deixe conforme o exemplo abaixo:
1 2 3 4 | procedure TForm1.Button1Click(Sender: TObject); begin PlaySound(PChar('SYSTEMSTART'), 0, SND_ASYNC); end; |
Exemplos de outros sons:
SYSTEMSTART
SYSTEMEXIT
SYSTEMHAND
SYSTEMASTERISK
SYSTEMQUESTION
SYSTEMEXCLAMATION
SYSTEMWELCOME
SYSTEMDEFAULT
Testado no Windows XP.
Dúvidas ou sugestões deixe nos comentários do post.
