Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]Моментально вырубить комп и ...

1)
Напиши драйвер

Я тебя уверяю что если по кнопке ты будешь его стартовать и при этом никогда их не писал - система упадет мгновенно :-) Добиться резета а не бсода тоже не так сложно...

2)
Приатачься к системному процесу и убей свой процес убив этим же и системный процесс.
3)

Код:

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;
 
 
 
 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);