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