Hacer sonar la bocina interna de la computadora

[Lester]

Hola amigo, en respuesta a tu pregunta no se como hacer que la bocina de la computadora suene más que un beep (Imprimiendo chr(7)), pero te dejo esto por si te interesa:

Sonido en las aplicaciones:

Agregas en el

Código Delphi [-]
Uses MMSystem;

En el evento ButtonClick de un botón pones el siguiente código:

Código Delphi [-]
sndPlaySound('C:\Windows\Media\Chimes.wav', 0); 
sndPlaySound('C:\Windows\Media\Tada.wav', 0);
sndPlaySound(nil, 0); //para parar el sonido

También puedes hacer un archivo .RES con el siguiente código y llamarlo desde la aplicación, ten en cuenta que haciendo este último procedimiento el tamaño de tu aplicación crecerá considerablemente si el fichero .WAV es también grande:

Fichero SONIDOS.RES

Código Delphi [-]
SONIDO1 WAVE Sonido.WAV

Llamada desde un botón en la aplicación:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 //PlaySound(Pchar('SONIDO1'),hinstance,SND_RESOURCE or SND_SYNC); //Esperando a que termine
 PlaySound(Pchar('SONIDO1'),hinstance,SND_RESOURCE or SND_ASYNC); //Sin esperar a que termine
end;

Espero que te sea de utilidad,

Salu2,