Ocultar Iconos

[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.