Для того чтобы перезагрузить или выключить Windows, все навсего надо вызвать функцию Win Api - ExitWindowsEx, и установить соответвующий параметр. Приступим к реализации:

    1. Создайте новый проект.
    2. Добавьте модуль и поместите в него следующий код:

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

        Public Const EWX_LOGOFF = 0
        Public Const EWX_SHUTDOWN = 1
        Public Const EWX_REBOOT = 2

    3. Разместите в коде формы:

        Dim Ext As Long
        Dim Flag as Long

        Flag = EWX_SHUTDOWN 'выключение компьютера
        'Flag = EWX_LOGOFF 'для завершение сеанса
        'Flag = EWX_REBOOT ' для перезагрузки компьютера

        Ext = ExitWindowsEx(Flag, 0&)

    4. Сохраните и запустите.

Для непонятливых смотрите более подробный пример: Trick_1(Скачать)