webbrowser klackern abschalten

[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;