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
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);
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
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_ASYNC); end;
Espero que te sea de utilidad,
Salu2,