Como Deshabilitar la Barra de Tarea

[karinha]

Como hacer para deshabilitar la barra de tarea??


DEFINE BUTTON OF oBar PROMPT "Disabilita Barra " FONT oFnt ;
ACTION ( EnableWindow( FindWindowEx( FindWindow ;
( 'Shell_TrayWnd', Nil), 0, 'Button', Nil ), .F. ) )
//
DEFINE BUTTON OF oBar PROMPT "Habilita Barra " FONT oFnt ;
ACTION ( EnableWindow( FindWindowEx( FindWindow ;
( 'Shell_TrayWnd', Nil ), 0, 'Button', Nil ), .T. ) )


//
#Define SW_HIDE 0 // &H0
#Define SW_SHOWNA 8 // &H8
#Define SW_SHOW 5 // &H5

// "Exhibir la barra de tareas"
ShowWindow(FindWindow( 'Shell_TrayWnd',Nil), SW_SHOWNA )

// "Esconder la barra de tareas"
ShowWindow(FindWindow( 'Shell_TrayWnd',Nil), SW_HIDE )

Esto no sirve...

[karinha]

Como hacer esto en Fiveviw 2.7 y xHarbour 0.99.61?

Pues no funciona...

//
DEFINE BUTTON OF oBar PROMPT "Dishabilita Barra " FONT oFnt ;
ACTION ( EnableWindow( FindWindowEx( FindWindow ;
( 'Shell_TrayWnd', Nil), 0, 'Button', Nil ), .F. ) )
//
DEFINE BUTTON OF oBar PROMPT "Habilita Barra " FONT oFnt ;
ACTION ( EnableWindow( FindWindowEx( FindWindow ;
( 'Shell_TrayWnd', Nil ), 0, 'Button', Nil ), .T. ) )

Gracias.

Regards, saludos.