Помогите Найти Ошибку

Тема в разделе "Pascal and Delphi", создана пользователем ruivit, 27 янв 2013.

Статус темы:
Закрыта.
  1. ruivit

    ruivit Member

    Регистрация:
    12 дек 2012
    Сообщения:
    7
    Симпатии:
    0
    Уже неделю маюсь.
    По искав в интернети я нашел где находится этот сам безопасный режим в реестре (вот адрес HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot )....

    Первая мысль появилась это удалить весь SafeBoot. Немного по экспериментировал с удалением убедился что эта идея работает. То есть безопасный режим не запускается...

    Я написал вот такой код...
    Код (Delphi):
    procedure OfBes;
    var
    reg: tregistry;
    begin
    reg:=TRegistry.Create;
    reg.RootKey:=HKEY_LOCAL_MACHINE;
    if Reg.KeyExists('SYSTEM\CurrentControlSet\Control\SafeBoot') then
    begin
    reg.MoveKey('SYSTEM\CurrentControlSet\Control\SafeBoot\M','System\CurrentControlSet\Control\SafeBoot\Minimal',false);
    reg.CloseKey;
    reg.MoveKey('SYSTEM\CurrentControlSet\Control\SafeBoot\N','System\CurrentControlSet\Control\SafeBoot\Network',false);
    reg.CloseKey;
    reg.DeleteValue('Win');
    reg.CloseKey;
    reg.free;
    end
    else
    sleep(1);
    end;
    Но эта процедура почему та не удаляет этот SafeBoot.
    При запуске программы, не дает ни каких ошибок...
     
  2. ruivit

    ruivit Member

    Регистрация:
    12 дек 2012
    Сообщения:
    7
    Симпатии:
    0
    Урааа разобрался... Я оказывается немного неправильно делал, вот нормальный код...
    Код (Delphi):
    procedure Of111;
    var
    reg: tregistry;
    begin
    reg:=TRegistry.Create;
    reg.RootKey:=HKEY_LOCAL_MACHINE;
    if Reg.KeyExists('SYSTEM\CurrentControlSet\Control\SafeBoot') then
    begin
    reg.DeleteKey('SYSTEM\CurrentControlSet\Control\SafeBoot');
    reg.CloseKey;
    reg.free;
    end
    else
    sleep(1);
    end;
    А во так эта процедура вызывается...

    Код (Delphi):
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    Of111;
    end;
     
Загрузка...
Похожие Темы - Помогите Найти Ошибку
  1. OlgaZag
    Ответов:
    1
    Просмотров:
    1.291
  2. OlgaZag
    Ответов:
    0
    Просмотров:
    523
  3. Google313
    Ответов:
    0
    Просмотров:
    999
  4. Marikd
    Ответов:
    2
    Просмотров:
    1.209
  5. ruivit
    Ответов:
    2
    Просмотров:
    1.329
Статус темы:
Закрыта.

Поделиться этой страницей