Capturar el handle a subclases....(deshabilitar barra de inicio)

[JuanErasmo]

buenas tardes amigos.
Estoy intentando esconder el icono de yahoo, y para estoy he tratado de acceder a la clase que contiene esta informacion (segun WinExplorer se llama :"TryNotifyWnd" ). El problema es que como es una "subclase", esta dentro de la clase Shell_TrayWnd que es la que maneja toda la barra de inicio de Windows.
Cuando hago esto a Shell_TrayWnd me funciona bien y bloqueo la TODA la barra de inicio :

EnableWindow (FindWindow("Shell_TrayWnd",NULL),false);

pero cuando lo intento con TryNotifyWnd no me funciona.....creo que es porque es una "subclase..." o no se... sabe alguien como puedo hacerlo?

EnableWindow (FindWindow("TryNotifyWnd",NULL),false); // NO FUNCIONA!!!!!

Gracias amigos.

[[seoane]]

Aquí te va una ayudita. Supongo que estas buscando el toolbar que contiene los iconos del área de notificación, si es así, esta función te devuelve su handle. Espero que la entiendas en Delphi:

Código Delphi [-]
function GetTrayHandle: THandle;
begin
  Result:= FindWindow('Shell_TrayWnd',nil);
  if Result <> 0 then
    Result:= FindWindowEx(Result,0,'TrayNotifyWnd',nil);
      if Result <> 0 then
        Result:= FindWindowEx(Result,0,'SysPager',nil);
          if Result <> 0 then
            Result:= FindWindowEx(Result,0,'ToolbarWindow32',nil);
end;

// Ejemplo de uso, la ocultamos
ShowWindow(GetTrayHandle,sw_hide);
// y la volvemos a mostrar
ShowWindow(GetTrayHandle,sw_show);

[JuanErasmo]

Buenos dias.
Mira, ahora tengo un problema grande....cualdo oculto por ejemplo el yahoo...
lo hago asi....

 
ShowWindow  (FindWindow("IMClass",NULL),SW_HIDE);

pero solo me oculta 1 ventana...lo he intendado con un for....pero tampoco funciona.....como puedo hacer?
Gracias!

[[seoane]]

Yo sigo contestándote en Delphi, espero que no te moleste Para encontrar todas las ventanas tenemos dos opciones, utilizar un bucle con la función FindWindowEx o usar la función EnumWindows. Te pongo las dos y decide tu.

Usando FindWindowEx en un bucle:

Código Delphi [-]
var
  Ventana: THandle;
begin
  Ventana:= FindWindowEx(0,0,'IMClass',nil);
  if Ventana > 0 then
  repeat
    // Si la ventana es visible la ocultamos y viceversa
    if isWindowVisible(Ventana) then
      ShowWindow(Ventana,SW_HIDE)
    else
      ShowWindow(Ventana,SW_SHOW);
    Ventana:= FindWindowEx(0,Ventana,'IMClass',nil);
  until Ventana = 0;
end;

Usando la función EnumWindows:

Código Delphi [-]
function EnumWindowsProc(Handle: Thandle; lParam: LPARAM): BOOL; stdcall;
var
  Buffer: PChar;
  Size: Integer;
begin
  Result:= TRUE;
  if PChar(lParam) <> nil then
  begin
    Size:= Strlen(PChar(lParam)) + 1;
    GetMem(Buffer,Size);
    try
      FillChar(Buffer^,Size,0);
      GetClassName(Handle,Buffer,Size);
      if StrIcomp(PChar(lParam), Buffer) = 0 then
        if isWindowVisible(Handle) then
          ShowWindow(Handle,SW_HIDE)
        else
          ShowWindow(Handle,SW_SHOW);
    finally
      Freemem(Buffer);
    end;
  end;
end;

// Para llamar la funcion
EnumWindows(@EnumWindowsProc, LPARAM(PChar('IMClass')));

[JuanErasmo]

Gracias.
Esta vez me va a ser un poco mas dificil pero lo puedo hacer.
Muchas gracias...
Una cosa mas.....sabes como deshabilitar los iconos del TryNotifyWnd, no hacerlos invisible sino, deshabilitarlos???
Gracias

[JuanErasmo]

Hola amigo..no he podido pasar al loop...como puedo hacer?
lo estoy haciendo asi:

 
HWND Ventana;
      for (int i=0;i<5;i++){
        Ventana = FindWindowEx(0,0,"ExploreWClass",NULL);
                if (Ventana>0){
                        if (IsWindowVisible(Ventana)){
                                ShowWindow(Ventana,SW_HIDE);
                         }
                         }
      }

gracias

[[seoane]]

Parece que traducir de Delphi a C no te resulta tan fácil. Haber que tal se me da a mi, aunque lo tengo un poco oxidado :

HANDLE Ventana;

  Ventana = FindWindowEx(0,0,"IMClass",NULL);
  if (Ventana)
  do {
    if (IsWindowVisible(Ventana)) 
      ShowWindow(Ventana,SW_HIDE);
    else
      ShowWindow(Ventana,SW_SHOW);
    Ventana = FindWindowEx(0,Ventana,"IMClass",NULL);
  } while (Ventana);

[Ñuño Martínez]

Seoane: deja algo para los demás, leñe, que también queremos ayudar, jó... Estaba a puntito a puntito...

[[seoane]]

Empezado por Ñuño Martínez

Seoane: deja algo para los demás, leñe, que también queremos ayudar, jó... Estaba a puntito a puntito...

Si lo se te lo dejo a ti, no tengo ningún IDE para C instalado y tuve que compilarlo desde la linea de comandos para comprobar que todo estaba en sus sitio.

[roman]

¿No se puede así?

Ventana = 0;

while (Ventana = FindWindowEx(0,Ventana,"IMClass",NULL))
{
  if (IsWindowVisible(Ventana)) 
    ShowWindow(Ventana,SW_HIDE);
  else
    ShowWindow(Ventana,SW_SHOW);
}

// Saludos

[[seoane]]

Empezado por roman

¿No se puede así?

Muy cierto. Mi código era una traducción punto por punto del código en delphi, y no aproveche todas las características del C. Pero sera mejor no empezar como la última vez que me caliento y termino haciéndolo en ensamblador Es broma.

http://www.clubdelphi.com/foros/showthread.php?t=35085

[JuanErasmo]

Gracias amigos.
Funciona muy bien...
pero ahorita estoy intentando esconder el icono de la aplicacion similar a la funcion

SetWindowText( FindWindow("IMClass",NULL),"           ");

, pero esta vez va a ser con el icono..es poner un icono diferente a una ventana...gracias.

[[seoane]]

Por poder se puede hacer, pero estamos en la cuerda floja. Con el mensaje WM_SETICON podemos cambiar el icono, pero tenemos que pasarle el HANDLE del nuevo icono, y aquí esta el problema. El nuevo icono lo deberíamos de poder obtener con la función LoadIcon, pero ese solo sera valido mientras nuestro programa este en ejecución (y aun así tengo mis dudas). Podemos usar uno de los iconos estándar, pero aun así no puedo asegurar que todo termine cayendo , hay que pensar que ese mensaje esta pensado para comunicarse con las ventana de un mismo proceso no con las de otro. De todas formas aquí te queda para empezar:

  HANDLE Ventana;
  HICON Icono;
  
  // Busca la ventana del bloc de notas
  if (Ventana = FindWindow(NULL,"Sin título - Bloc de notas"))
  {
    // Uso el icono de peligro
    if (Icono = LoadIcon(0,IDI_WARNING))
    {
     SendMessage(Ventana, WM_SETICON, 1, (LPARAM)Icono);
    }
  }

PD: Tengo mucha curiosidad por lo que estas haciendo, por los mensajes que has puesto, parece algún tipo de aplicación para ocultar el mesenger (supongo que de tu jefe o algún otro vigilante). No tienes porque decírmelo, solo es curiosidad