Ocultar Iconos

[Nathan]

Gracias ....




Nathan.

[roman]

Nathan

Respecto del mensaje privado que me mandaste dos cosas:

1. Es absolutamente imposible de leer. El código no sólo no está indentado sino que salió todo en una sola línea.

2. No me es posible responder de forma privada.

Vuelve a colocar aquí tu mensaje y con gusto intentaremos ayudarte. El objetivo de estos foros es ayudar a todos los que pudieran estar interesados en un determinado tema, cosa que no es posible tratando los mensajes de forma privada.

// Saludos

[Nathan]

Hola roman
parece que el anterior post no salio,pero va de nuevo
lo que pasa es que ya probe con este codigo pero no oculta el icono.


var
hTrayWnd, hToolbar, TB_HIDEBUTTON,
hTryNotify: HWND;
begin
hTrayWnd := FindWindow('Shell_TrayWnd',nil);
if hTrayWnd <> 0 then
begin
hTryNotify := FindWindowEx(hTrayWnd, 0, 'TrayNotifyWnd', nil);
hToolbar := FindWindowEx(hTryNotify, 0, 'ToolbarWindow32', nil);
if hTryNotify <> 0 Then
SendMessage(hToolBar, TB_HIDEBUTTON, 3, 1);
// ShowWindow(hTryNotify, SW_HIDE);
end;
end;




ademas TB_HIDEBUTTON sale que no fue inicializada, que es lo que estoy haciendo mal



Saludos ..... Nathan.

[roman]

TB_HIDEBUTTON no es una variable. Es una constante y se encuentra definida en la unidad CommCtrl al igual que los otros mensajes que te mencioné antes.

Nuevamente te recomiendo consultar el SDK de Windows para mayor referencia acerca de controles Toolbar.

No estaría mal tampoco un repaso a la función SendMessage y la manera en que Windows procesa mensajes. Sé que normalmente uno no lidia con esto en Delphi pero siempre es bueno saber de estos temas.

// Saludos

pd: aprende a usar la etiqueta code para cuando escribas mensajes en el foro.