Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Colaboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 18-10-2011
jogagua jogagua is offline
Miembro
 
Registrado: dic 2008
Posts: 14
Poder: 0
jogagua Va por buen camino
Thumbs up

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

Código:
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):

Código:
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
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como quitar "Convertir esta carpeta en privada" desde otra instalacion de windows Diavlo Windows 1 04-10-2007 23:18:07
Electroshock para quitar la "adicción" a internet Casimiro Noteví Noticias 5 01-03-2007 06:44:42
Quitar mensaje: "Discard changes this record?" erick78 Conexión con bases de datos 0 07-12-2005 00:44:08
como quitar el mensaje "cable de red está desconectado" RONPABLO Windows 2 17-11-2005 23:26:42
quitar popups de spam "messenger service" lemon-club Windows 2 06-11-2003 16:14:35


La franja horaria es GMT +2. Ahora son las 05:55:42.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi