Uma coisinha simples, mas que pode ser muito útil para aqueles usuários que precisam de um sinal sonoro para verem que estão fazendo coisa errada.
Basta usar a função Beep que já é própria do windows. Ela irá emitir um sinal sonoro conforme configurar-mos. Pode ser uma sequencia de beeps, saindo como se fosse música, ou apenas um único beep.
procedure ErrorSound;
begin
Windows.Beep(500,500);
end;
Em primeiro vem a frequencia e depois o tempo do beep (Windows.Beep(frequencia,Tempo)), como sabemos, quanto menor a frequencia mais grave o som.
Sinal sonoro no Delphi
