Ejemplos usando el Api de windows para Visual basic

189 - Cuadro de Diálogos de windows para reiniciar y salir del sistema

Ejemplo de las funciones Api RestartDialog y ExitWindowsDialog para poder utilizar los mismos cuadros de diálogo que utiliza windows para preguntar si se quiere reiniciar, suspender o salir del sistema

La función ExitWindowsDialog desdepliega el siguiente diálogo

Vista previa del diálogo suspender apagar y reiniciar

Para desplegar este cuadro de diálogo, hay que ejecutar ExitWindowsDialog pasándole el Hwnd del form, por ejemplo

' Diálogo de windows
Private Declare Sub ExitWindowsDialog Lib "shell32.dll" Alias "#60" ( _
    ByVal hwndOwner As Long)
Private Sub Command1_Click()
' abre el cuadro de diálogo
ExitWindowsDialog Me.hWnd
End Sub

La función RestartDialog permite desplegar los cuadros de diálogos de reiniciar y de salir

Reiniciar

Vista previa del cuadrode diálogo para reiniciar windows

Salir

vista previa del cuadro de diálogo para salir de Windows

RestartDialog, recibe como parámetro el Hwnd de la ventana o formulario que lo llama, el prompt que es opcional ( si se pasa un 0 no muestra nada, solo el texto por default ) y en el último parámetro una seria de flags que determina que diálogo usar y otras opciones para forzar o no el cierre de aplicaciones , para suspender . Se puede combinar dichos Flags mediante el operador Or

Ejemplo

Colocar dos CommandButton en el formulario.

Código fuente

' Api RestartDialog Private Declare Function RestartDialog Lib "shell32.dll" Alias "#59" ( _ ByVal hParent As Long, _ ByVal lpPrompt As Long, _ ByVal dwFlags As Long) As Long ' Constantes : Flags Private Const EWX_LOGOFF = 0 Private Const EWX_SHUTDOWN = 1 Private Const EWX_REBOOT = 2 Private Const EWX_FORCE = 4 '**************************************************************************** ' Muestra el diálogo ¿ desea salir del sistema ahora ? usando el Flag EWX_SHUTDOWN Private Sub Command1_Click() Call RestartDialog(Me.hWnd, 0, EWX_SHUTDOWN) End Sub ' Muestra el diálogo ¿ Para que la nueva configuración tenga _ efecto deberá reiniciar el equipo ... desea reiniciar el equipo ahora ? _ usando el Flag EWX_REBOOT Private Sub Command2_Click() Call RestartDialog(Me.hWnd, 0, EWX_REBOOT) End Sub Private Sub Form_Load() Command1.Caption = " Salir del sistema " Command2.Caption = " Diálogo reiniciar " End Sub

Recursos visual basic 6.0 - Links relacionados

Buscar en Recursos vb