[решено] Помогите поправить скрипт Show & Hide Fles and Folders

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

Помогите поправить скрипт Show & Hide Fles and Folders

Я хочу сделать так чтобы мой файл при нажатии показывал скритые файлы, и при повторном нажатии их скрыл.
Подскажите-как правильно добавить эти строки в скрипт?

Код:

Reg.WriteInteger('Hidden', 1);

Reg.WriteInteger('ShowSuperHidden', 1);

Код:

Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', True);

Reg.WriteInteger('Hidden', 2);

Reg.WriteInteger('ShowSuperHidden', 0);

Заведите переменные, и в зависимости от текущего значения ключа вносите нужное значение
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);
.....

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

Код:

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

Цитата:

Цитата ufooo000

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

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

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

Код:

if Reg.ValueExists('Hidden') then

begin

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

      .......

   Reg.WriteInteger('Hidden', RegHidden);

end;

Reg.Closekey;

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