Ventana Reiniciar Sistema

Para probar, incluye el siguiente código en un proyecto nuevo.

Private Declare Function SHRestartSystemMB Lib "shell32" Alias "#59" (ByVal hOwner As Long, _
                    ByVal sPrompt As String, ByVal uFlags As Long) As Long
Private Sub Form_Load()
    Dim AddTexto As String
    AddText = "": 'If WinNT Then AddText = StrConv(AddText, vbUnicode)
    ExitType = 1  'Texto=Salir
    ExitType = 2  'Texto=Reiniciar
    If SHRestartSystemMB(hWnd, AddTexto, ExitType) = vbYes Then MsgBox "Adios"
End Sub

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s