[opel431]

Заведите переменные, и в зависимости от текущего значения ключа вносите нужное значение
var
RegHidden: Integer;
.......
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', True);

// узнать текущее значение параметра "Hidden"
if Reg.ValueExists('Hidden') then
RegHidden:=Reg.ReadInteger(....);

// изменить
if RegHidden=1 then
RegHidden:=2
else
RegHidden:=1;
.....
// внести изменения
Reg.WriteInteger('Hidden', RegHidden);
.....

[ufooo000]

Скрипт не работает. Одна строка не срабатывает.

Код:

RegHidden:=Reg.ReadInteger(....);

[opel431]

Скрипт не работает. Одна строка не срабатывает. »

Это серьезно! Вы что, прям так и тестировали? Ну, что сказать - тогда, вы пропустили еще пару строчек с "многоточием"!
Наверное, так и не понял, о чем идет речь?

// многоточие в параметрах функции, всего лишь предложение для изменения в других параметрах ключа. Ведь у Вас есть еще и 'ShowSuperHidden'
// многоточие в коде, способ сократить набор кода, за счет пропуска неизменяемой и по сути правильной части кода

Код:

if Reg.ValueExists('Hidden') then
begin
   RegHidden:=Reg.ReadInteger('Hidden');
      .......
   Reg.WriteInteger('Hidden', RegHidden);
end;
Reg.Closekey;

[ufooo000]

opel431
Разобрался-спасибо за скрипт!