webbrowser klackern abschalten

[Van HelF]

Hallo,
wenn man mit dem Twebbrowser eine Seite aufruft, ist häufig ein klackern zu hören, gibt es eine Möglichkeit dies auszuschalten ?

[Daniel B]

Systemsteuerung -> Sound -> Reiter "Sounds" "Auswahl beginnen" oder jetzt heissts "Navigation starten" den Klang ausschalten.

[Van HelF]

Nun, das sollte das Programm, von alleine machen, gibt es keine solche Eigenschaft des TWebbrowsers?

[toms]

Zitat von Van HelF:

Nun, das sollte das Programm, von alleine machen, gibt es keine solche Eigenschaft des TWebbrowsers?

Nein. Ist eine Systemeinstellung.

[Neutral General]

Der Thread ist zwar alt, aber kann man diese Systemeinstellung mithilfe einer API abstellen?

[toms]

Zitat von Neutral General:

Der Thread ist zwar alt, aber kann man diese Systemeinstellung mithilfe einer API abstellen?

Hallo,

Beim EWB gibt's eine DisableSounds Eigenschaft. Diese greift auf folgende Prozedur zurück:

Delphi-Quellcode:

procedure DisableNavSound(bDisable: Boolean);
var
  Reg: TRegIniFile;
  Path: string;
begin
  Reg := TRegIniFile.Create;
  Path := 'AppEvents\Schemes\Apps\Explorer\Navigating\';
  with Reg do
  begin
    RootKey := HKEY_CURRENT_USER;
    try
      if bDisable then
      begin
        if KeyExists(Path + '.Current') then
          if OpenKey(Path, True) then
            MoveKey('.Current', 'Old_Current', True);
      end
      else
      begin
        if KeyExists(Path + 'Old_Current') then
          if OpenKey(Path, false) then
            MoveKey('Old_Current', '.Current', True);
      end;
    finally
      CloseKey;
      Free;
    end;
  end;
end;

[Neutral General]

Wow, das ging ja schnell und funktionieren tut es auch

Danke!