FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
||||
|
||||
Hola:
Extraido de trucomania : Oculta el boton inicio y lo hace aparecer, PROBADO EN WINXP y supongo que en windows 98 tambien funcionará. Si quieres ocultar los iconos del escritorio, lo puedes hacer en windows sin tocar nada por programacion, 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; procedure TForm1.Button2Click(Sender: TObject); begin {Mostrar el boton} {Show the button} ShowWindow ( FindWindowEx(FindWindow( 'Shell_TrayWnd', nil), 0, 'Button', nil) ,SW_ShowNormal); end; |
|
|
|