Hide/Unhide Taskbar

*!* Constantes para ocultar ou mostrar a barra de tarefas do windows

#DEFINE TOGGLE_HIDEWINDOW 128

#DEFINE TOGGLE_UNHIDEWINDOW 64

*!* Oculta a barra de tarefas de windows

*!* Sintaxes: HideTaskBar()

*!* Valor de Retorno:

*!* Argumentos:

FUNCTION HideTaskBar

LOCAL lnHwnd

*!* Valores

lnHwnd = 0

*!* Instruções DECLARE DLL para manipular a barra de tarefas

DECLARE INTEGER FindWindowA IN Win32API STRING lpClassName, STRING lpWindowName

DECLARE INTEGER SetWindowPos IN Win32API INTEGER hwnd, INTEGER hwndInsertAfter, INTEGER x, INTEGER y, INTEGER cx, INTEGER cy, INTEGER wFlags

*!* Valores

lnHwnd = FindWindowA('Shell_traywnd', '')

*!* Ocultar a barra de tarefas

IF lnHwnd <> 0

SetWindowPos(lnHwnd, 0, 0, 0, 0, 0, TOGGLE_HIDEWINDOW)

ENDIF

ENDFUNC

*!* Mostrar a barra de tarefas de windows

*!* Sintaxes: ShowTaskBar()

*!* Valor Retorno:

*!* Argumentos:

FUNCTION ShowTaskBar

LOCAL lnHwnd

*!* Valores

lnHwnd = 0

*!* Instruções DECLARE DLL para manipular a barra de tarefas

DECLARE INTEGER FindWindowA IN Win32API STRING lpClassName, STRING lpWindowName

DECLARE INTEGER SetWindowPos IN Win32API INTEGER hwnd, INTEGER hwndInsertAfter, INTEGER x, INTEGER y, INTEGER cx, INTEGER cy, INTEGER wFlags

*!* Valores

lnHwnd = FindWindowA('Shell_traywnd', '')

*!* Mostrar a barra de tarefas

IF lnHwnd <> 0

SetWindowPos(lnHwnd, 0, 0, 0, 0, 0, TOGGLE_UNHIDEWINDOW)

ENDIF

ENDFUNC

 

Saludos Alexandre ahedreville@krafteurope.com