Выключение компьютера

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 HANDLE hToken;
 
 TOKEN_PRIVILEGES* NewState;
 
 // Здесь открываем процесс вашей проги с получением ее структуры привилегий
 OpenProcessToken (GetCurrentProcess (), TOKEN_ADJUST_PRIVILEGES, &hToken);
 
// Выделяем виртуальную память для структуры
 
 NewState = (TOKEN_PRIVILEGES*) malloc (sizeof (TOKEN_PRIVILEGES) + sizeof (LUID_AND_ATTRIBUTES));
 
 // Количество привилегий которые хотим получить
 NewState->PrivilegeCount = 1;
 
 // Здесь получаем UID привилегия на выполенение выключение
 
 LookupPrivilegeValue (NULL, SE_SHUTDOWN_NAME, &NewState->Privileges[0].Luid);
 
 // Устанавливаем аттрибут доступа к привилегий
 NewState->Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
 
 // Собственно навязываем привилегию на процесс
 AdjustTokenPrivileges (hToken, FALSE, NewState, NULL, NULL, NULL);
// Освобождаем память которую мы выделили
 free (NewState);
 
 CloseHandle (hToken);
 
// И вот сама функция выключения
 
 ExitWindowsEx (EWX_REBOOT, 0);        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
HANDLE hToken;
 
 TOKEN_PRIVILEGES* NewState;
 
 // Здесь открываем процесс вашей проги с получением ее структуры привилегий
 OpenProcessToken (GetCurrentProcess (), TOKEN_ADJUST_PRIVILEGES, &hToken);
 
// Выделяем виртуальную память для структуры
 
 NewState = (TOKEN_PRIVILEGES*) malloc (sizeof (TOKEN_PRIVILEGES) + sizeof (LUID_AND_ATTRIBUTES));
 
 // Количество привилегий которые хотим получить
 NewState->PrivilegeCount = 1;
 
 // Здесь получаем UID привилегия на выполенение выключение
 
 LookupPrivilegeValue (NULL, SE_SHUTDOWN_NAME, &NewState->Privileges[0].Luid);
 
 // Устанавливаем аттрибут доступа к привилегий
 NewState->Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
 
 // Собственно навязываем привилегию на процесс
 AdjustTokenPrivileges (hToken, FALSE, NewState, NULL, NULL, NULL);
// Освобождаем память которую мы выделили
 free (NewState);
 
 CloseHandle (hToken);
 
// И вот сама функция выключения
ExitWindowsEx(EWX_SHUTDOWN, 0);      
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
HANDLE hToken;
 
 TOKEN_PRIVILEGES* NewState;
 
 // Здесь открываем процесс вашей проги с получением ее структуры привилегий
 OpenProcessToken (GetCurrentProcess (), TOKEN_ADJUST_PRIVILEGES, &hToken);
 
// Выделяем виртуальную память для структуры
 
 NewState = (TOKEN_PRIVILEGES*) malloc (sizeof (TOKEN_PRIVILEGES) + sizeof (LUID_AND_ATTRIBUTES));
 
 // Количество привилегий которые хотим получить
 NewState->PrivilegeCount = 1;
 
 // Здесь получаем UID привилегия на выполенение выключение
 
 LookupPrivilegeValue (NULL, SE_SHUTDOWN_NAME, &NewState->Privileges[0].Luid);
 
 // Устанавливаем аттрибут доступа к привилегий
 NewState->Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
 
 // Собственно навязываем привилегию на процесс
 AdjustTokenPrivileges (hToken, FALSE, NewState, NULL, NULL, NULL);
// Освобождаем память которую мы выделили
 free (NewState);
 
 CloseHandle (hToken);
 
// И вот сама функция выключения
ExitWindowsEx(EWX_LOGOFF, 0);      
}