Ver Mensaje Individual
  #3  
Antiguo 20-04-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Código Delphi [-]
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
                                       0,
                                       'Button',
                                       nil),
                                       false);
esto lo deshabilita y con true al final lo habilita
Con este codigo puedes hacerlo desaparecer

  procedure TForm1.Button1Click(Sender: TObject);
   begin
      ShowWindow (
       FindWindowEx(FindWindow(
                               'Shell_TrayWnd',
                                 nil),
                               0,
                               'Button',
                               nil)
                ,SW_Hide);
   end;

   y con este lo puedes mostrar nuevamente

  procedure TForm1.Button2Click(Sender: TObject);
   begin
       ShowWindow (
       FindWindowEx(FindWindow(
                               'Shell_TrayWnd',
                                nil),
                               0,
                               'Button',
                               nil)
                ,SW_ShowNormal);
   end;

Aquí tienes algo de lo que pides espero.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita