cómo reemplazar Windows. Siga sonando un pitido moderno

Question

cómo reemplazar Windows. ¿Se emite un pitido moderno que proviene de los parlantes con volumen ajustable?

Answer 1

prueba este

uses MMSystem; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    sndPlaySound('C:\Windows\Media\sound.wav', 
    SND_NODEFAULT Or SND_ASYNC Or SND_LOOP); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    sndPlaySound(nil, 0); // Stops the sound 
end; 

Answer 2

divertido usted debe preguntar. Estaba leyendo acerca de la historia del sonido de Windows. La Ley de Estadounidenses con Discapacidades forzó a Beep API a no cambiar en los últimos 20 años.

http://blogs.msdn.com/b/larryosterman/archive/2010/01/04/what-s-up-with-the-beep-driver-in-windows-7.aspx

Para Windows 7, hemos resuelto el problema por completo - nos cambiamos toda la funcionalidad que solía ser contenido en Beep.sys en el sistema de modo de usuario suena agente - ahora, cuando llama a la API Beep() en lugar de manipulando el chip 8254 la llamada es reencaminada a un agente en modo usuario que realmente reproduce los sonidos.

Así que la respuesta corta es: Obtenga Windows 7. Una respuesta más larga sería: No use la señal de sonido. Haz un pitido y juega como si tocases cualquier otro ruido.

Answer 3

Si desea utilizar los pitidos "estándar" utilizado por Windows cuando se muestra un cuadro de mensaje, puede llamar Windows.MessageBeep(MessageID) donde Messageid mapas a los mismos valores que el icono de mensaje para los identificadores (MB_OK, MB_ERROR etc).

Un problema con esto es que los usuarios pueden asignar ningún sonido, o ningún sonido a determinados identificadores.

Answer 4

Puede reemplazar las llamadas de pitido con la ejecución de ET BEEP que tiene editor para todo tipo de sonidos extraterrestres.

http://www.encodeteam.com/beep.htm