Espero que te sirva, de hecho lo encontre en esta misma pagina
*******************************************************************
*
** FUNCTION ApagarEquipo(tnEquipo)
** Funcion para Apagar o Reiniciar Windows
*
** Parametros
** tnEquipo = (VALOR NUMERICO)
** 0 = Reiniciar Windows
** 1 = Apaga el Sistema
** 2 = Reiniciar el Sistema
*
*** Rutina suministrada por: ROD -
[email protected] *** Ultima Modificacion: Foxperto -
[email protected] *** Marzo 01 2002
*
*******************************************************************
*
FUNCTION ApagarEquipo(tnEquipo)
Declare Integer ExitWindowsEx in "user32.dll" Integer uFlags, Integer dwReserved
ExitWindowsEx(tnEquipo, 0)
ENDFUNC
*
** Fin ApagarEquipo()
*
