Организация реестра Windows

begin     Начало программы.

  Настройка для опции: "Oтключаем автозапуск CD-ROM"

if checkBox1.Checked then     если установлен флажок напротив 1 опции, то

begin    Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_LOCAL_MACHINE;     Открываем ветку реестра.

  reg.OpenKey('SYSTEM\CurrentControlSet\Services\Cdrom', True);   Открываем требуемый раздел в реестре.

  reg.WriteInteger('Autorun', 1);   Записываем соответствующий ключ.'Oтключаем автозапуск CD-ROM'

  reg.CloseKey;   Закрываем реестр.

end else   Иначе

begin       Начало программы.

  reg:= TRegistry.Create;     Открываем реестр.

  reg.RootKey:= HKEY_LOCAL_MACHINE;    Открываем ветку реестра.

  reg.OpenKey('SYSTEM\CurrentControlSet\Services\Cdrom', True);   Открываем требуемый раздел в реестре.

  reg.WriteInteger('Autorun', 0);   Включаем автозапуск CD-ROM.

  reg.CloseKey;    Закрываем реестр.

end;   Конец программы

   Для опции 'Отключить свойства экрана'

if checkBox2.Checked then    если установлен флажок напротив 2 опции, то

begin       Начало программы.

  reg:= TRegistry.Create;     Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;       Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +   Открываем требуемый раздел в реестре.

  'Policies\System', True);                                   

  reg.WriteInteger('NoDispCPL', 1); Отключаем свойства экрана.

  reg.CloseKey;    Закрываем реестр.

end else   Иначе

begin       Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;     Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +  Открываем требуемый  раздел в реестре

  'Policies\System', True);                                   

  reg.WriteInteger('NoDispCPL', 0);   Включаем свойства экрана.

  reg.CloseKey;   Закрываем реестр.

end;     Конец программы

     Для опции 'Заблокировать реестр'

if checkBox3.Checked then    если установлен флажок напротив 3 опции, то

begin     Начало программы.

  reg:= TRegistry.Create;     Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;      Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +  Открываем требуемый раздел в реестре.

  'Policies\System', True);                                   

  reg.WriteInteger('DisableRegistryTools', 1);   Заблокировать реестр.

  reg.CloseKey;     Закрываем реестр.

end else    Иначе

begin    Начало программы.

  reg:= TRegistry.Create;  Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;     Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +   Открываем требуемый раздел в реестре.

  'Policies\System', True);                                   

  reg.WriteInteger('DisableRegistryTools', 0);    Разблокировать реестр.

  reg.CloseKey;    Закрываем реестр.

end;     Конец программы

   Для опции 'Отключить Автозагрузку USB'

if checkBox4.Checked then    если установлен флажок напротив 4 опции, то

begin     Начало программы.

  reg:= TRegistry.Create;     Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;     Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +    Открываем требуемый раздел в реестре.

  'Policies\Explorer', True);                                   

  reg.WriteInteger('NoDriveTypeAutoRun', 255);   Заблокировать автозапуск USB.

  reg.CloseKey;   Закрываем реестр.

end else   Иначе

begin       Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;    Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +     Открываем требуемый раздел в реестре

  'Policies\Explorer', True);                                   

  reg.WriteInteger('NoDriveTypeAutoRun', 145);    Разрешить автозапуск USB.

  reg.CloseKey;    Закрываем реестр.

end;    Конец программы

   Для опции 'Отключить запуск Панели управления'

if checkBox5.Checked then    если установлен флажок напротив 5 опции, то

begin    Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;   Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +    Открываем требуемый  раздел в реестре.

  'Policies\Explorer', True);                                   

  reg.WriteInteger('NoControlPanel', 1);   Отключить запуск Панели управления.

  reg.CloseKey;    Закрываем реестр.

end else   Иначе

begin       Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;    Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +     Открываем требуемый  раздел в реестре.

  'Policies\Explorer', True);                                  

  reg.WriteInteger('NoControlPanel', 0);  Включить запуск Панели управления.

  reg.CloseKey;   Закрываем реестр.

end;   Конец программы

   Для опции 'Отключение рабочего стола'

if checkBox6.Checked then    если установлен флажок напротив 6 опции, то

begin   Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;    Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +    Открываем требуемый раздел в реестре.

  'Policies\Explorer', True);                                   

  reg.WriteInteger('NoDesktop', 1);    Отключение рабочего стола.

  reg.CloseKey;   Закрываем реестр.

end else     Иначе

begin     Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;    Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +   Открываем требуемый раздел в реестре

  'Policies\Explorer', True);                                   

  reg.WriteInteger('NoDesktop', 0);    Включение рабочего стола.

  reg.CloseKey;   Закрываем реестр.

end;     Конец программы

   Для опции 'Отключить удаленный доступ к реестру'

if checkBox7.Checked then    если установлен флажок напротив 7 опции, то

begin   Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_LOCAL_MACHINE;    Открываем ветку реестра.

  reg.OpenKey('SYSTEM\CurrentControlSet\Services\RemoteRegistry', True); // Открываем требуемый раздел в реестре.

  reg.WriteInteger('Start', 4); Записываем соответствующий ключ.'Oтключаем удаленный доступ к реестру'

  reg.CloseKey; Закрываем реестр.

end else   Иначе

begin     Начало программы.

  reg:= TRegistry.Create;   Открываем реестр.

  reg.RootKey:= HKEY_LOCAL_MACHINE;    Открываем ветку реестра.

  reg.OpenKey('SYSTEM\CurrentControlSet\Services\RemoteRegistry', True);   Открываем требуемый раздел в реестре.

  reg.WriteInteger('Start', 3);   Включаем удаленный доступ к реестру.

  reg.CloseKey;   Закрываем реестр.

end;   Конец программы

   Для опции 'Очистка файла подкачки'

if checkBox8.Checked then    если установлен флажок напротив 8 опции, то

begin    Начало программы.

  reg:= TRegistry.Create;   Открываем реестр.

  reg.RootKey:= HKEY_LOCAL_MACHINE;    Открываем ветку реестра.

  reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management', True); Открываем требуемый раздел в реестре.

  reg.WriteInteger('ClearPageFileAtShutdown', 1);   Записываем соответствующий ключ.'Очистка файла подкачки после завершения работы '

  reg.CloseKey;   Закрываем реестр.

end else    Иначе

begin       Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_LOCAL_MACHINE;     Открываем ветку реестра.

  reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management', True);    Открываем требуемый раздел в реестре.

  reg.WriteInteger('ClearPageFileAtShutdown', 0);   Отключаем очистку файла подкачки после завершения работы.

  reg.CloseKey;    Закрываем реестр.

end;     Конец программы

   Для опции 'Отключение Доктора Ватсона'

if checkBox9.Checked then    если установлен флажок напротив 9 опции, то

begin    Начало программы.

  reg:= TRegistry.Create;   Открываем реестр.

  reg.RootKey:= HKEY_LOCAL_MACHINE;   Открываем ветку реестра.

  reg.OpenKey('SOFTWARE\Microsoft\Windows NT\Current Version\AeDebug', True);   Открываем требуемый раздел в реестре.

  reg.WriteInteger('Auto', 1);   Записываем соответствующий ключ.'Отключение Доктора Ватсона'

  reg.CloseKey;   Закрываем реестр.

end else   Иначе

begin      Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_LOCAL_MACHINE;   Открываем ветку реестра.

  reg.OpenKey('SOFTWARE\Microsoft\Windows NT\Current Version\AeDebug', True);   Открываем требуемый раздел в реестре.

  reg.WriteInteger('Auto', 0);   Включение Доктора Ватсона.

  reg.CloseKey;     Закрываем реестр.

end;   Конец программы

   Для опции 'Отключение Диспетчер задач Windows'

if checkBox10.Checked then    если установлен флажок напротив 10 опции, то

begin     Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;     Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +   Открываем требуемый раздел в реестре.

  'Policies\System', True);

  reg.WriteInteger('DisableTaskMgr', 1);    Отключение Диспетчер задач Windows.

  reg.CloseKey;   Закрываем реестр.

end else   Иначе

begin      Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;     Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +     Открываем требуемый раздел в реестре.

  'Policies\System', True);

  reg.WriteInteger('DisableTaskMgr', 0);    Включение Диспетчер задач Windows.

  reg.CloseKey;   Закрываем реестр.

end;      Конец программы

  Для опции 'Отмена сохранения информации о действиях пользователя'

if checkBox11.Checked then    если установлен флажок напротив 11 опции, то

begin     Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_LOCAL_MACHINE;   Открываем ветку реестра.

  reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer', True);   Открываем требуемый раздел в реестре.

  reg.WriteInteger('NoInstrumentation', 1); Записываем соответствующий ключ.'Отмена сохранения информации'

  reg.CloseKey;    Закрываем реестр.

end else    Иначе

begin       Начало программы.

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_LOCAL_MACHINE;    Открываем ветку реестра.

  reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer', True);   Открываем требуемый раздел в реестре.

  reg.WriteInteger('NoInstrumentation', 0);   Сохранять информацию о действиях пользователя.

  reg.CloseKey;   Закрываем реестр.

end;   Конец программы

   Для опции 'Запрет на запуск любой оснастки консоли управления'

if checkBox12.Checked then    если установлен флажок напротив 12 опции, то

begin      Начало программы.

  reg:= TRegistry.Create;     Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;    Открываем ветку реестра.

  reg.OpenKey('Software\Policies\Microsoft\MMC', True);     Открываем требуемый раздел в реестре.

  reg.WriteInteger('RestrictToPermittedSnapins', 1);   Запрет на запуск любой оснастки консоли управления.

  reg.CloseKey;   Закрываем реестр.

end else    Иначе

begin       Начало программы.

  reg:= TRegistry.Create;     Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;    Открываем ветку реестра.

  reg.OpenKey('Software\Policies\Microsoft\MMC', True);     Открываем требуемый раздел в реестре.

  reg.WriteInteger('RestrictToPermittedSnapins', 0);     Включение запуска любой оснастки консоли управления.

  reg.CloseKey;   Закрываем реестр.

end;     Конец программы

end;

procedure TForm1.FormCreate(Sender: TObject);    Обработчик события создания главной формы OnCreate.

function ReadWinVerFromReg: String;      Функции для определения версии Windows

begin

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_LOCAL_MACHINE;

Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion');

Result:=Reg.ReadString('ProductName')+#9+Reg.ReadString('RegisteredOrganization')+#9

+Reg.ReadString('RegisteredOwner')+#9+Reg.ReadString('CurrentBuild');

Reg.CloseKey;

FreeAndNil(Reg);

end;

begin

Label2.Caption:=ReadWinVerFromReg;

begin    Начало программы.

   Проверяем все опции:

   Настройка для опции: "Oтключаем автозапуск CD-ROM"

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_LOCAL_MACHINE;    Открываем ветку реестра.

  reg.OpenKey('SYSTEM\CurrentControlSet\Services\Cdrom', False);   Открываем требуемый раздел в реестре.

if reg.ValueExists('Avtorun')then    если ключ существует и

if reg.ReadInteger('Avtorun') = 1      если он = 1,

then   то

CheckBox1.Checked:= True;    Устанавливаем флажок 1 опции.

reg.CloseKey;   Закрываем реестр.

    Для опции 'Отключить свойства экрана'

  reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;      Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +     Открываем требуемый раздел в реестре

  'Policies\System', false);                                                               

if reg.ValueExists('NoDispCPL')then     если ключ существует и

if reg.ReadInteger('NoDispCPL') = 1       если он = 1,

then    то

CheckBox2.Checked:= True;      Устанавливаем флажок 2 опции.

reg.CloseKey;    Закрываем реестр.

    Для опции 'Заблокировать реестр'

 reg:= TRegistry.Create;    Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;    Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +   Открываем требуемый раздел в реестре.

  'Policies\System', false);                                                              

if reg.ValueExists('DisableRegistryTools')then     если ключ существует и

if reg.ReadInteger('DisableRegistryTools') = 1       если он = 1,

then    то

CheckBox3.Checked:= True;    Устанавливаем флажок 3 опции.

reg.CloseKey;   Закрываем реестр.

    Для опции 'Отключить Автозагрузку USB'

  reg:= TRegistry.Create;     Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;     Открываем ветку реестра.

  reg.OpenKey('Software\microsoft\Windows\CurrentVersion\' +     Открываем требуемый раздел в реестре.

  'Policies\Explorer', false);                                                                

if reg.ValueExists('NoDriveTypeAutoRun')then       если ключ существует и

if reg.ReadInteger('NoDriveTypeAutoRun') = 255     если он = 255,

then    то

CheckBox4.Checked:= True;      Устанавливаем флажок 4 опции.

reg.CloseKey;    Закрываем реестр.

   Для опции 'Отключить запуск Панели управления'

 reg:= TRegistry.Create;     Открываем реестр.

  reg.RootKey:= HKEY_CURRENT_USER;    Открываем ветку реестра.