FoxPro/Visual FoxPro - Ayuda con APIs

Hola a Todos/as:

Necesito de su ayuda con unas APIs, les explico:

Necesito mediante un Programa hecho en VFP 6 hacer lo siguiente:

1.- Apagar/Reiniciar el Equipo.
2.- Que no puedan sacar el Programa de Memoria con las Teclas CTRL+ALT+SUPR.
3.- Esconder la Barra de Inicio de Windows.

Les agradesco toda la ayuda que me puedan dar al respecto.

Mil Gracias de Antemano.

Saludos

Hola Fox pues bien aqui ba el codigo para tu primera pregunta.
Apagar el PC
**********************************************
Declare Integer ExitWindowsEx in "user32.dll" Integer uFlags, Integer
dwReserved

*Algunoa de los valores para uFlags pueden ser:

*0 = Reinicia windows.
*1 = Apaga el sistema.
*2 = Reinicia el sistema.

*Y el valor para dwReserved siempre debe ser 0.

ExitWindowsEx(1,0) && Reinicia windows

************************************
Atte
ROD

***************************************************************************
FUNCTION DesactivarTeclasWindows(b_Estado)

DECLARE INTEGER SystemParametersInfo IN USER32.DLL ;
LONG uAction, ;
LONG uParam, ;
STRING lpvParam, ;
LONG fuWinIni

uAction = 97
lpvParam = '0'
fuWinIni = 0

If b_Estado = .T.
*--- deshabilita las teclas
uParam = 1
n_Resultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)
Else
*--- habilita las teclas
uParam = 0
n_Resultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)
EndIf

RETURN n_Resultado

ENDFUNC

***************************************************************************
* Ejemplo : a) Deshabilita las teclas:
* n_Resultado = DesactivarTeclasWindows(.T.)
*
* b) Habilita las teclas:
* n_Resultado = DesactivarTeclasWindows(.F.)

Atte
ROD

* Ejemplo : OcultaDelTaskBar(.T.)
*
***************************************************************************
***************************************************************************
FUNCTION OcultaDelTaskBar(b_Accion)
LOCAL n_CurrProc

DECLARE LONG RegisterServiceProcess IN KERNEL32.DLL ;
LONG ProcessID, ;
LONG ServiceFlags

DECLARE LONG GetCurrentProcessId IN KERNEL32.DLL ;

*--- obtiene el identificador de proceso
n_CurrProc = GetCurrentProcessId()

IF b_Accion = .T.

*--- remueve la bandera de servicio
RegisterServiceProcess(n_CurrProc, 1)

ELSE

*--- crea la bandera de servicio de la aplicación
RegisterServiceProcess(n_CurrProc, 0)

ENDIF

ENDFUNC

***************************************************************************

Hola ROD:

Muchas gracias por el codigo...

Funciono a la perfecion, pero tube unos problemitas con el de ocultar la barra de tareas de windows, que por alguna rason no lo hiso, de todas maneras revisare ese codigo on mas calma.

Mira Amigo, me tome la libertad de Publicar el Codigo, en la seccion de codigo fuente de esta web, de las APIs Ocultar las teclas de Windows y el de apagar el sistema.

Nuevamente te doy las gracias por tu ayuda.

Saludos