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

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

  'Policies\Explorer', false);                                                                 

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

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

then    то

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

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

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

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

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

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

  'Policies\Explorer', false);                                                              

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

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

then    то

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

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

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

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

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

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

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

if reg.ReadInteger('Start') = 4       если он = 4,

then     то

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

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

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

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

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

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

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

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

then   то

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

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

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

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

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

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

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

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

then     то

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

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

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

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

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

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

  'Policies\System', false);

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

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

then    то

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

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

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

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

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

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

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

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

then    то

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

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

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

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

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

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

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

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

then    то

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

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

end;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Form5.ShowModal;   при нажатии на кнопку 3 « Перезагрузка ПК» открываем Form5

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

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

CheckBox1.visible:=true;      показываем на форме

CheckBox7.visible:=true;      показываем на форме

CheckBox3.visible:=true;    показываем на форме

CheckBox4.visible:=true;      показываем на форме

CheckBox5.visible:=false;    скрываем на форме

CheckBox6.visible:=false;    скрываем на форме

CheckBox2.visible:=false;    скрываем на форме

CheckBox8.visible:=false;     скрываем на форме

CheckBox9.visible:=false;     скрываем на форме

CheckBox10.visible:=false;   скрываем на форме

CheckBox11.visible:=false;   скрываем на форме

CheckBox12.visible:=false;    скрываем на форме

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

CheckBox12.visible:=true;

CheckBox8.visible:=true;

CheckBox10.visible:=true;

CheckBox11.visible:=true;

CheckBox1.visible:=false;

CheckBox6.visible:=false;

CheckBox7.visible:=false;

CheckBox5.visible:=false;

CheckBox9.visible:=false;

CheckBox2.visible:=false;

CheckBox3.visible:=false;

CheckBox4.visible:=false;

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

CheckBox2.visible:=true;

CheckBox5.visible:=true;

CheckBox6.visible:=true;

CheckBox9.visible:=true;

CheckBox1.visible:=false;

CheckBox3.visible:=false;

CheckBox4.visible:=false;

CheckBox7.visible:=false;

CheckBox8.visible:=false;

CheckBox10.visible:=false;

CheckBox11.visible:=false;

CheckBox12.visible:=false;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form1.Close;    закрываем форму Form1

end;

procedure TForm1.GroupBox1Click(Sender: TObject);

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

begin

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_LOCAL_MACHINE;

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

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

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

Reg.CloseKey;

FreeAndNil(Reg);

end;

begin

Label1.Caption:=ReadWinVerFromReg;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

CheckBox1.Hint:=('При установки диска в дисковод')+#13+('Автозапуска диска не будет!');  текст подсказки

Application.HintColor:=clAqua;         Цвет приложения

CheckBox1.ShowHint:=true;              Включает всплывающую подсказку

Application.HintPause:=0;                  Время в сек. при наведении на объект

Application.HintHidePause:=5000;    Время в сек. отображения   объекта

end;

procedure TForm1.CheckBox4Click(Sender: TObject);

begin

CheckBox4.Hint:=('При установки USB устройства')+#13+('Автозапуска USB устройства не будет!');

Application.HintColor:=clAqua;

CheckBox4.ShowHint:=true;

Application.HintPause:=0;

Application.HintHidePause:=5000;

end;

procedure TForm1.CheckBox3Click(Sender: TObject);

begin

CheckBox3.Hint:=('Недоступно редактирование  Реестра!');

Application.HintColor:=clAqua;

CheckBox3.ShowHint:=true;

Application.HintPause:=0;

Application.HintHidePause:=5000;

end;

procedure TForm1.CheckBox7Click(Sender: TObject);

begin

CheckBox7.Hint:=('Недоступно Удалённое  редактирование Реестра');

Application.HintColor:=clAqua;

CheckBox7.ShowHint:=true;

Application.HintPause:=0;

Application.HintHidePause:=5000;

end;

procedure TForm1.CheckBox12Click(Sender: TObject);

begin

CheckBox12.Hint:=('Запрет на запуск любой  оснастки ')+#13+('консоли управления!');

Application.HintColor:=clAqua;

CheckBox12.ShowHint:=true;

Application.HintPause:=0;

Application.HintHidePause:=5000;

end;

procedure TForm1.CheckBox8Click(Sender: TObject);

begin

CheckBox8.Hint:=('Очистка файла подкачки')+#13+('там  могут оставаться ваши пароли')+#13+('к  различным ресурсам и прочая  конфиденциальная информация!');

Application.HintColor:=clAqua;

CheckBox8.ShowHint:=true;

Application.HintPause:=0;

Application.HintHidePause:=5000;

end;

procedure TForm1.CheckBox10Click(Sender: TObject);

begin

CheckBox10.Hint:=('Запретить пользователю  возможность')+#13+('запуска Диспетчера  задач Windows');

Application.HintColor:=clAqua;

CheckBox10.ShowHint:=true;

Application.HintPause:=0;

Application.HintHidePause:=5000;

end;

procedure TForm1.CheckBox11Click(Sender: TObject);

begin

CheckBox11.Hint:=('Запрещает записывать, с  какими приложениями ')+#13+('недавно  работал пользователь ')+#13+('и к  каким документам получал доступ!');

Application.HintColor:=clAqua;

CheckBox11.ShowHint:=true;

Application.HintPause:=0;

Application.HintHidePause:=5000;

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

CheckBox2.Hint:=('Отключает Свойства Экрана');

Application.HintColor:=clAqua;

CheckBox2.ShowHint:=true;

Application.HintPause:=0;

Application.HintHidePause:=5000;

end;

procedure TForm1.CheckBox5Click(Sender: TObject);

begin

CheckBox5.Hint:=('В меню Пуск не будет  Панели Управления!');

Application.HintColor:=clAqua;

CheckBox5.ShowHint:=true;

Application.HintPause:=0;

Application.HintHidePause:=5000;

end;

procedure TForm1.CheckBox6Click(Sender: TObject);

begin

CheckBox6.Hint:=('Не будет видно Папки  на Рабочем Столе!');

Application.HintColor:=clAqua;

CheckBox6.ShowHint:=true;

Application.HintPause:=0;

Application.HintHidePause:=5000;

end;

procedure TForm1.CheckBox9Click(Sender: TObject);

begin

CheckBox9.Hint:=('Не будет автоматически записывать')+#13+('информацию о сбое в log-файл!');

Application.HintColor:=clAqua;

CheckBox9.ShowHint:=true;

Application.HintPause:=0;

Application.HintHidePause:=5000;

end;

end.

---------------------------------------------------------------------------------------------------------------------------------------------

unit Unit5;      Обработка Form5

interface

uses

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

type

  TForm5 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    Button2: TButton;

    procedure FormCreate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);

begin

Label1.Caption:=('Чтобы выбранные Вами  параметры вступили в силу,')+#13+('нужно  перезагрузить Ваш Компьютер!')+#13+('Перезагрузить  Компьютер сейчас???');

end;

procedure TForm5.Button2Click(Sender: TObject);   Обработка кнопки «НЕТ»

begin

Form5.Close;    Закрываем форму Form5

end;

procedure TForm5.Button1Click(Sender: TObject);          Обработка кнопки «ДА»

begin

WinExec('shutdown -r -t 00',SW_SHOW);  Перезагружаем компьютер, чтобы изменение вступило в силу.

end;

end.