clic molesto sonido en TWebBrowser

Question

estoy usando un componente TWebBrowser en mi aplicación Delphi, cuyo contenido me carga mediante programación:

(aWebBrowser.Document as IPersistStreamInit). 
           Load(TStreamAdapter.Create(aMemoryStream)) 

en cada carga de componente produce un sonido de clic molesto. ¿Esto puede ser deshabilitado?
TIA

Answer 1

Eche un vistazo al procedimiento CoInternetSetFeatureEnabled en URLMON.DLL, como se documentó en here. Si habilitas FEATURE_DISABLE_NAVIGATION_SOUNDS para tu aplicación, harás lo que necesites.

Answer 2

¿Hay alguna posibilidad de que este sea el sonido estándar de "Iniciar navegación" de Windows (consulte "Panel de control" - "Sonidos y dispositivos de audio")?

Answer 3

Esto es windows setting. No estoy seguro de que tu aplicación deba cambiar esa configuración.

Answer 4

bien, esto es lo que he intentado:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    Application.OnActivate := AppActivate; 
    Application.OnDeactivate := AppDeactivate; 
end; 

procedure TForm1.AppActivate(Sender: TObject); 
begin 
    with TRegistry.Create do 
    try 
    RootKey := HKEY_CURRENT_USER; 
    OpenKey('AppEvents\Schemes\Apps\Explorer\Navigating\.Current', False); 
    if ReadString('') <> '' then 
     RememberSoundFile := ReadString(''); 
    WriteString('', ''); 
    finally 
    Free; 
    end; 
end; 

procedure TForm1.AppDeactivate(Sender: TObject); 
begin 
    with TRegistry.Create do 
    try 
    RootKey := HKEY_CURRENT_USER; 
    OpenKey('AppEvents\Schemes\Apps\Explorer\Navigating\.Current', False); 
    WriteString('', RememberSoundFile); 
    finally 
    Free; 
    end; 
end; 

Se es fugly pero funciona. :-) Aunque básicamente estoy de acuerdo con Davy, esta solución al menos tiene la ventaja de que otras aplicaciones no se verán afectadas.
Puedo agregarlo como una opción de usuario para desactivar el clic, pero personalmente ¡realmente quiero que se vaya!