Hide the Start Button  

Send By: Q3 Team
Web : www.q3.nu
Email: dlib@q3.nu
Date: 18/09/99

Tip accessed 453 times

 



Hide the button



 procedure TForm1.Button1Click(Sender: TObject);
 begin
   {Hacer desaparecer el boton}
   {Hide the Button}
   ShowWindow (
     FindWindowEx(FindWindow(
                             'Shell_TrayWnd',
                              nil),
                             0,
                             'Button',
                             nil)
              ,SW_Hide);
 end;





Show the button



 procedure TForm1.Button2Click(Sender: TObject);
 begin
   {Mostrar el boton}
   {Show the button}
   ShowWindow (
     FindWindowEx(FindWindow(
                             'Shell_TrayWnd',
                              nil),
                             0,
                             'Button',
                             nil)
              ,SW_ShowNormal);
 end;