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:

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:

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 :) :thumb:

Danke!