Apagar, reiniciar el ordenador
03.11.2010 19:28
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal
uFlags&, ByVal dwReserved&)
Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(1, 0&) 'Apagar
End Sub
Private Sub Command2_Click()
Dim i as integer
i = ExitWindowsEx(2, 0&) 'Reiniciar el Sistema
End Sub