Реестр, нужно оптимизировать код

[Человек_Борща]

Всем доброго времени суток!

Вот начал работу с реестром системы, напсал обработчик checkBox, действия которого включают или отключаю Windows Error Reporting в системах XP, Seven, 2008 в зависимости от состояния.

procedure TSettingsForm.DisableWinErrorRepotingChkClick(Sender: TObject);
var
  Reg: TRegistry; //Реестр
  RegKey: string;
begin
  try
    Reg := TRegistry.Create;
    if not IsWindows7 then //Windows XP
    begin
      Reg.RootKey := HKEY_LOCAL_MACHINE; //Идём сюда
      RegKey := 'SOFTWARE\Microsoft\PCHealth\ErrorReporting'; //по этому адресу
      if Reg.OpenKey(RegKey, FALSE) then //Открываем ключ и нельзя его создать
      begin
        if Reg.ValueExists('DoReport') then //Если такой параметр есть то
        begin
          if DisableWinErrorRepotingChk.Checked then //Если чекнут то
          begin
            Reg.WriteInteger('DoReport', 0); //Отключаем
            DisableWinErrorRepotingChk.Caption := 'Включить Windows Error Reporting (Отключено)';
          end
          else //Иначе
          begin
            Reg.WriteInteger('DoReport', 1); //Включаем
            DisableWinErrorRepotingChk.Caption := 'Выключить Windows Error Reporting (Включено)';
          end;
        end;
      end;
      Reg.CloseKey;
    end
    else //Windows 7, Server 2008
    begin

      Reg.RootKey := HKEY_LOCAL_MACHINE;
      RegKey := 'SYSTEM\CurrentControlSet\Control\Windows';
      if Reg.OpenKey(RegKey, False) then
      begin
        if Reg.ValueExists('ErrorMode') then
        begin
          if DisableWinErrorRepotingChk.Checked then //Если чекнут то
          begin
            Reg.WriteInteger('ErrorMode', 2); //Отключаем
            DisableWinErrorRepotingChk.Caption := 'Включить Windows Error Reporting (Отключено)';
          end
          else //Иначе
          begin
            Reg.WriteInteger('ErrorMode', 0); //Включаем
            DisableWinErrorRepotingChk.Caption := 'Выключить Windows Error Reporting (Включено)';
          end;
        end;
        Reg.CloseKey;
      end;

      Reg.RootKey := HKEY_LOCAL_MACHINE;
      RegKey := 'SYSTEM\ControlSet001\Control\Windows';

      if Reg.OpenKey(RegKey, False) then
      begin
        if Reg.ValueExists('ErrorMode') then
        begin
          if DisableWinErrorRepotingChk.Checked then //Если чекнут то
          begin
            Reg.WriteInteger('ErrorMode', 2); //Отключаем
            DisableWinErrorRepotingChk.Caption := 'Включить Windows Error Reporting (Отключено)';
          end
          else //Иначе
          begin
            Reg.WriteInteger('ErrorMode', 0); //Включаем
            DisableWinErrorRepotingChk.Caption := 'Выключить Windows Error Reporting (Включено)';
          end;
        end;
        Reg.CloseKey;
      end;

      Reg.RootKey := HKEY_CURRENT_USER;
      RegKey := 'Software\Microsoft\Windows\Windows Error Reporting';

      if Reg.OpenKey(RegKey, False) then
      begin
        if Reg.ValueExists('DontShowUI') then
        begin
          if DisableWinErrorRepotingChk.Checked then //Если чекнут то
          begin
            Reg.WriteInteger('DontShowUI', 1); //Отключаем
            DisableWinErrorRepotingChk.Caption := 'Включить Windows Error Reporting (Отключено)';
          end
          else //Иначе
          begin
            Reg.WriteInteger('DontShowUI', 0); //Включаем
            DisableWinErrorRepotingChk.Caption := 'Выключить Windows Error Reporting (Включено)';
          end;
        end;
        Reg.CloseKey;
      end;
    end;
  finally
    Reg.Free; //Освобождаем память
  end;
end;

У меня жуткое чуство того что можно проще и без таких ГАБАРИТОВ.
Но я в упор не вижу как можно уменьшить размер процедуры с созданением её действия.

Подскажите что использовать.

Всего-то есть 4 ключа реестра.
Три для NT систем Seven, Server 2008 и один для XP.

В зависимости от сотояния CheckBox'а менять значение параметров в реестре.

Можно использовать

case checkbox.checked of
true: begin {something} end;
false: begin {something} end;

но размер процедуры отнюдь не уменьшится, ведь можно ещё проще!(Или только кажется?) Как? В упор не вижу!

[mihali4]

Сообщение от Человек_Борща

Всего-то есть 4 ключа реестра.
Три для NT систем Seven, Server 2008 и один для XP.

Можно использовать

case checkbox.checked of
true: begin {something} end;
false: begin {something} end;

но размер процедуры отнюДь не уменьшится, ведь можно ещё проще!(Или только кажется?) Как? В упор не вижу!

Шаг первый - if Reg.ValueExists('DoReport') then - значения типа 'DoReport' вывести в переменную, например, regv...
И так далее.
А мысль ваша правильная, но в CASE нужно только задавать переменные, а цикл обработки - общий для всех, только для Seven, Server 2008 повторяется 3 раза...

[GunSmoker]

if not IsWindows7 then //Windows XP

Капитан Очевидность в панике!

[Человек_Борща]

Мы все иногда пишем ляпы...