adi2020

Experiencia

mira este codigo de puede servir
- Mostrar o esconder el escritorio y la barra de tareas
Algunas aplicaciones necesitan que el usuario no pueda acceder a la barra de tareas o al escritorio cuando se ejecuta nuestra aplicación. Vamos a bloquear el acceso a la barra de tareas o al escritorio mediante una llamada a una API de Windows.
Declarar las dos funciones siguientes:
Function long FindWindowExA ( long hWnd, long hWndChild, ref string lpszClassName, ref string lpszWindow) library "user32"
Function long ShowWindow (long hWnd, long nCmdShow ) library "user32"
Y añadir el siguiente código:
// Constantes para ShowWindow()
Constant Long SW_HIDE = 0
Constant Long SW_NORMAL = 1
Constant Long SW_SHOWMINIMIZED = 2
Constant Long SW_SHOWMAXIMIZED = 3
Constant Long SW_SHOWNOACTIVATE = 4
Constant Long SW_SHOW = 5
Constant Long SW_MINIMIZE = 6
Constant Long SW_SHOWMINNOACTIVE = 7
Constant Long SW_SHOWNA = 8
Constant Long SW_RESTORE = 9
Constant Long SW_SHOWDEFAULT = 10
// Nombres del shell de Windows que deberiamos buscar
String ls_ShellViewWnd = "Progman"
String ls_ShellTaskBarWnd = "Shell_TrayWnd"
String ls_Null
// Locales
Long ll_HTaskBar, ll_HDeskTop
// Esconder la barra de tareas
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, ls_Null )
ShowWindow( ll_HTaskBar, SW_HIDE )
// Esconder el escritorio
ll_HDeskTop = FindWindowExA( 0, 0, ls_ShellViewWnd, ls_Null )
ShowWindow( ll_HDeskTop, SW_HIDE )
// Pausa para restaurar
MessageBox( 'Pausa', '¡Mira, sin manos!' )
// Muestra la barra de tareas
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, ls_Null )
ShowWindow( ll_HTaskBar, SW_SHOW )
// Muestra el escritorio
ll_HDeskTop = FindWindowExA( 0, 0, ls_ShellViewWnd, ls_Null )
ShowWindow( ll_HDeskTop, SW_SHOW )
saludos adi2020