Fastidioso click del suono in TWebBrowser

Question

sto usando un componente TWebBrowser nel mio Delphi app, il cui contenuto mi carico di programmazione:

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

Su ogni caricare il componente produce un suono di click fastidioso. Può essere disabilitato?
TIA

Answer 1

Dai un'occhiata alla procedura CoInternetSetFeatureEnabled in URLMON.DLL, come documentato here. L'attivazione di FEATURE_DISABLE_NAVIGATION_SOUNDS per la tua app farà ciò di cui hai bisogno.

Answer 2

Qualsiasi possibilità che si tratti dello standard di Windows "Avvia navigazione" (vedere "Pannello di controllo" - "Suoni e periferiche audio")?

Answer 3

Questo è un windows setting. Non sono sicuro che la tua applicazione dovrebbe cambiare questa impostazione.

Answer 4

OK, ecco cosa ho provato:

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; 

E 'fugly ma funziona. :-) Anche se sostanzialmente sono d'accordo con Davy, questa soluzione ha il vantaggio che le altre applicazioni non ne risentiranno.
Posso aggiungerlo come opzione utente per disabilitare il clic, ma personalmente lo voglio davvero!