Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Capturar el handle a subclases....(deshabilitar barra de inicio) (https://www.clubdelphi.com/foros/showthread.php?t=36707)

JuanErasmo 20-10-2006 23:34:57

Capturar el handle a subclases....(deshabilitar barra de inicio)
 
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 :

Cita:

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?

Cita:

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

seoane 21-10-2006 00:00:04

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 23-10-2006 19:34:13

Como siempre tienes razon..pero...
 
Buenos dias.
Mira, ahora tengo un problema grande....cualdo oculto por ejemplo el yahoo...
lo hago asi....
Código:


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 23-10-2006 19:59:41

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 23-10-2006 21:37:07

Gracias amigo
 
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 24-10-2006 17:10:40

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

Código:


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 24-10-2006 17:21:54

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

Código:

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 24-10-2006 17:25:21

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

seoane 24-10-2006 17:30:51

Cita:

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... :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 24-10-2006 17:32:04

¿No se puede así?

Código:

Ventana = 0;

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

// Saludos

seoane 24-10-2006 17:38:28

Cita:

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 :D ;) Es broma.

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

JuanErasmo 24-10-2006 18:09:03

Gracias!
 
Gracias amigos.
Funciona muy bien...
pero ahorita estoy intentando esconder el icono de la aplicacion similar a la funcion
Código:

SetWindowText( FindWindow("IMClass",NULL),"          ");
, pero esta vez va a ser con el icono..es poner un icono diferente a una ventana...gracias.

seoane 24-10-2006 21:51:11

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:

Código:

  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


La franja horaria es GMT +2. Ahora son las 06:39:41.

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