Annoying click sound in TWebbrowser

Question

I'm using a TWebbrowser component in my Delphi app, whose content I load programmatically:

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

On every Load the component produces an annoying click sound. Can this be disabled?
TIA

Answer 1

Any chance that this is the Windows standard "Start Navigation" sound (see "Control Panel" - "Sounds and Audio Devices")?

Answer 2

This is a windows setting. I'm not sure your application should change that setting.

Answer 3

OK, here's what I tried:

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;

It's fugly but it works. :-) While I basically agree with Davy this solution at least has the advantage that other applications won't be affected.
I may add it as a user option to disable the click, but personally I really want it gone!

Answer 4

Take a look at the CoInternetSetFeatureEnabled procedure in URLMON.DLL, as documented here. Enabling FEATURE_DISABLE_NAVIGATION_SOUNDS for your app will do what you need.