
API para Apagar Equipo
FoxPro/Visual FoxPro
28.341 visualizaciones desde el 4 de Marzo del 2002
Esta funcion la pueden copiar en su archivo de Rutinas e invocarla desde cualquier parte de su programa. (Visual FoxPro)
*******************************************************************
*
** 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 - eendor@hotmail.com
*** Ultima Modificacion: Foxperto - foxperto@yahoo.com
*** Marzo 01 2002
*
*******************************************************************
*
FUNCTION ApagarEquipo(tnEquipo)
Declare Integer ExitWindowsEx in "user32.dll" Integer uFlags, Integer dwReserved
ExitWindowsEx(tnEquipo, 0)
ENDFUNC
*
** Fin ApagarEquipo()
*
Comentarios sobre la versión: Versión 1 (4)
esta rutina esta muy bien,
peró solo funciona en Win95 y Win98
?en windows NT, y Win XP estas seguro de que funciona??en VB no.
usando las APIs necesitas pedir privilegios para poder apagar el pc.