VBasicFacil

Principal - Enlaces - Codigo - Controles - API

Función ExitWindowsEx

Declaración

Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Plataformas

• Windows 95 o superior
  
• Windows NT 3.1 o superior
  

Descripción

Apaga o reinicia el ordenador. Ejecutada la función el proceso de apagado continua en segundo plano.

Parámetros

uFlags Uno o mas de los siguentes indicadores que indican como apagar o reiniciar el ordenador.:

EWX_LOGOFF = 0 Cierra la sesión de forma segura, cerrando los programas.

EWX_SHUTDOWN = 1 Cierra el sistema de forma segura, cerrando todos los programas.

EWX_REBOOT = 2 Realiza un reinicio completo del ordenador.

EWX_FORCE = 4 Fuerza el cierre de las aplicaciones sin preguntarle al usuario si quiere cerrarlo.

EWX_POWEROFF = 8 Cierra el sistema y si es posible apaga el ordenador.

dwReserved Reservado para futuras versiones de Windows. Poner siempre a 0.

Valor devuelto

Distinto de 0 si no se produce error y 0 si se produce. Tener en cuenta que la función retorna antes de completarse.

Ejemplo

Option Explicit


Dim retval As Long


Private Sub Command1_Click(Index As Integer)
    Dim Mensaje As String


    Mensaje = MsgBox("Este programa va a apagar el ordenador. Pulse OK para continuar o Cancel para cancelarlo.",_
            vbCritical + vbOKCancel + 256, App.Title)
    If Mensaje = vbCancel Then End
    Select Case Index
        Case 0
            'Desconectar de la red
            retval = ExitWindowsEx(EWX_LOGOFF, 0)
        Case 1
            'cerrar el sistema
            retval = ExitWindowsEx(EWX_SHUTDOWN, 0)
        Case 2
            'Reiniciar el ordenador
            retval = ExitWindowsEx(EWX_REBOOT, 0)
        Case 3
            'Forzar el cierre del ordenador
            retval = ExitWindowsEx(EWX_FORCE, 0)
        Case 4
            'Apagar el ordenador
            retval = ExitWindowsEx(EWX_POWEROFF, 0)
    End Select
End Sub

Option Explicit


Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public Const EWX_POWEROFF = 8


Public Declare Function ExitWindowsEx _
        Lib "user32" _
       (ByVal uFlags As Long, _
        ByVal dwReserved As Long) As Long

Aplicaciones:

Ver también:

Categoría: Window

Ultima actualización : 8 de diciembre de 2001
Copyright © 2001 Silared, s.l.
correo-e : vbasicfacil@silared.com
Site : www.vbasicfacil.com