Apagar el pc
Hola Leo
Me gustaría saber, si existe algún comando para apagar el pc y si no
Como puedo hacerlo
Gracias de antemano
Jesús
Me gustaría saber, si existe algún comando para apagar el pc y si no
Como puedo hacerlo
Gracias de antemano
Jesús
1 Respuesta
Respuesta de leosoft
1
Tienes el método por API, declara esto en el prcedimiento general del formulario:
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
ahora desde tu codigo tienes que poner:
salir& = ExitWindowsEx(EWX_SHUTDOWN, 0)
Fíjate que podes cambiar de constante para en vez de apagar, podes resetear o hacer un logoff.
Cualquier duda estoy a tu disposición.
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
ahora desde tu codigo tienes que poner:
salir& = ExitWindowsEx(EWX_SHUTDOWN, 0)
Fíjate que podes cambiar de constante para en vez de apagar, podes resetear o hacer un logoff.
Cualquier duda estoy a tu disposición.
