Деактивация кода [BSOD]

program criticalprocess;
 
uses
Windows,
SysUtils;
 
const
ntdll = 'NTDLL.DLL';
 
type
NTSTATUS = ULONG;
HANDLE = ULONG;
PROCESS_INFORMATION_CLASS = ULONG;
 
const
STATUS_SUCCESS = $00000000;
STATUS_PRIVILEGE_NOT_HELD = $C0000061;
 
const
SE_DEBUG_PRIVILEGE = 20;
 
const
ProcessBreakOnTermination = 29;
 
function RtlAdjustPrivilege(Privilege: ULONG; Enable: BOOL;
CurrentThread: BOOL; out OldPrivilege: BOOL): NTSTATUS; stdcall; external ntdll;
function NtSetInformationProcess(ProcessHandle: HANDLE;
ProcessInformationClass: PROCESS_INFORMATION_CLASS;
ProcessInformation: Pointer; ProcessInformationLength: ULONG): NTSTATUS; stdcall; external ntdll;
 
var
Status: NTSTATUS;
Enabled: BOOL;
begin
 
Status := RtlAdjustPrivilege(SE_DEBUG_PRIVILEGE, True, False, Enabled);
 
case (Status) of
 
STATUS_SUCCESS:
begin
Enabled := True;
NtSetInformationProcess(HANDLE(-1),
ProcessBreakOnTermination, @Enabled, SizeOf(Enabled));
end;
 
STATUS_PRIVILEGE_NOT_HELD:
begin
MessageBox(0, 'Debug privilege needed.', nil, MB_ICONERROR);
Exit;
end;
 
else
MessageBoxW(0, PWideChar(WideString(Format('NTSTATUS: 0x%.8X', [Status]))), nil, MB_ICONERROR);
Exit;
end;
 
MessageBoxW(0, 'Do not terminate!', 'Warning!', MB_ICONWARNING);
end.