Quitar Sonido de "Click" en WebBrowser

[jogagua]

Ninguna otra idea de como quitar el molesto sonido de click producido por el WebBrowser?...

Aunque parezca una tontería, en realidad es muy importante, ya que no utilizo el WebBrowser para navegar, sino para descargar una serie de archivos de internet de una pagina(que no es mia, por lo que no puedo hacerlo por FTP), para lo cual debo introducir el nombre de usuario y contraseña, y posteriormente descargar el archivo, y por cada descarga hace unos 4 ruiditos, por lo que para descargar los 5000 archivos que son en total es bastante molesto.

ayuda¡¡¡ estoy desesperado

[dec]

Hola,

Con los "ruiditos" no te puedo ayudar, pero, ¿has pensado en usar otro componente? Digo del estilo del componente "IdHttp" de Indy. Parece más adecuado, puesto que sólo necesitas descargar archivos. Además encontrarás no poca información sobre este último componente si buscas información en estos mismos foros.

[jogagua]

Buenas, por fin he logrado quitar los dichosos clicks...

Revisando de nuevo la sugerencia inicial de Ñuño Martínez me di cuenta que aunque el internet explorer tenga desactivados los sonidos manualmente, el componente TWebBrowser usa su propia configuración en la cual utiliza éstos sonidos, por lo que lo solucioné (de manera algo chapucera para mi gusto) modificando el registro del windows al iniciar el programa, para que no encuentre el archivo .wav del ruido de "Click", y al cerrar la aplicación lo vuelvo a colocar como estaba al principio... Aqui les dejo el codigo:

Al abrir (en el OnCreate):

var
  Reg:TRegistry;
  Values:TstringList;
  i,j:integer;
  s,s1:string;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  if Reg.OpenKey('AppEvents\Schemes\Apps\Explorer\Navigating\.Current',false) then begin
    Values:=TStringList.Create;
    Reg.GetValueNames(Values);
    for i:=1 to Values.Count do begin
        s:=Reg.ReadString(Values[i-1]);
        if s<>'' then begin
          if s[length(s)-3]='.' then begin
            s1:='';
            for j:=1 to length(s)-4 do
              s1:=s1+s[j];
          end;
          Reg.WriteString(Values[i-1],s1);
        end;
    end;
    Values.Free;
  end;
  Reg.Free;
end;

y al cerrar(en el OnClose):

var
  Reg:TRegistry;
  Values:TstringList;
  i,j:integer;
  s:string;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  if Reg.OpenKey('AppEvents\Schemes\Apps\Explorer\Navigating\.Current',false) then begin
    Values:=TStringList.Create;
    Reg.GetValueNames(Values);
    for i:=1 to Values.Count do begin
      s:=Reg.ReadString(Values[i-1]);
      if Trim(s)<>'' then begin
        if s[length(s)-3]<>'.' then
          s:=s+'.wav';
        Reg.WriteString(Values[i-1],s);
      end;
    end;
    Values.Free;
  end;
  Reg.Free;

Quiero mencionar que hago algunas comprobaciones innecesarias en este codigo como s<>'' pero es mas por seguridad que por otra cosa...

Bueno, Muchas gracias a los que dieron sus sugerencias... espero este tema le sirva a otras personas

PD: me quedé con la duda de si es posible quitarle el sonido a nuestra aplicacion con un control central, ya que sería interesante para otros usos (nosé si algun componente hará tal función) ó si el TWebBrowser tendrá alguna configuracion en la cual se le coloque en mute jejej Saludos