
API para Apagar Equipo
FoxPro/Visual FoxPro
28.595 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)






(4)














*******************************************************************
*** 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.