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:


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:

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:

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]

:rolleyes: 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... :mad:

[seoane]

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

:D 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]

¿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 :D ;) 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 :D , 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 :D