[Drongo]

morkva, Вариант хороший. Оформи это дело в тег [code]...[/code].

P.S. У меня только всё равно, нужно ПКМ - Обновить, хоть с примером выше, хоть со своим, хоть с - Context Menu Tweaker (Hidden Files Toggle/File Extensions. У всех происходит обновление окна автоматически?

[morkva]

Всем добрый день.

Изучив мат. часть обновил скрипт.
Теперь пункт контекстного меню меняется автоматически, в зависимости от значения реестра ShowSuperHidden (см. скрипт и прилагаемые скрины).
Проверена работоспособность скрипта на Windows 2008 Server SP1/Vista Ultimate SP1.
Обновление содержимого папки происходит автоматически (с рабочим столом - не всегда)

Файл SuperHidden.vbs

Код:

'Show/Hide System Files by Herby, edited by Morkva

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
sTitle1 = "SSH=0"
sTitle2 = "SSH=1"

if WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then

WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
WSHShell.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\SuperHidden\", "Отображать скрытые", "REG_SZ"
WSHShell.SendKeys "{F5}"

else

WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\SuperHidden\", "Не отображать скрытые", "REG_SZ"
WSHShell.SendKeys "{F5}"

end if

Set WSHShell = Nothing
WScript.Quit(0)

Файл Add SuperHidden.reg

Код:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\shell\SuperHidden]
@="Отображать скрытые"

[HKEY_CLASSES_ROOT\Directory\shell\SuperHidden\command]
@="WScript.exe C:\\Windows\\System32\\SuperHidden.vbs"

Файл Remove SuperHidden.reg

Код:

Windows Registry Editor Version 5.00

[-HKEY_CLASSES_ROOT\Directory\shell\SuperHidden]

[R.M.L]

morkva, а этот пункт никак нельзя перенести на рабочий стол или vbs в этом безсилен?

[morkva]

R.M.L. можно. VBS вообще может все

Универсальная версия для внесения пункта "Отображать скрытые/Не отображать скрытые" в контекстное меню Папки и Рабочего стола

В данной реализации под "скрытыми" понимаются также все файлы имеющие атрибуты "системный"!

Запись значения "Отображать/не отображать..." теперь идет параллельно в две ветки реестра:
HKEY_CLASSES_ROOT\Directory\shell\SuperHidden - для меню папки
HKEY_CLASSES_ROOT\Directory\Background\shell\SuperHidden - для меню рабочего стола


Файл Add SuperHidden.reg

Код:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\shell\SuperHidden]
@="Отображать скрытые"

[HKEY_CLASSES_ROOT\Directory\Background\shell\SuperHidden\command]
@="WScript.exe C:\\Windows\\System32\\SuperHidden.vbs"

[HKEY_CLASSES_ROOT\Directory\shell\SuperHidden]
@="Отображать скрытые"

[HKEY_CLASSES_ROOT\Directory\shell\SuperHidden\command]
@="WScript.exe C:\\Windows\\System32\\SuperHidden.vbs"

Файл Remove SuperHidden.reg

Код:

Windows Registry Editor Version 5.00

[-HKEY_CLASSES_ROOT\Directory\shell\SuperHidden]

[-HKEY_CLASSES_ROOT\Directory\Background\shell\SuperHidden]

Файл SuperHidden.vbs (копировать в Windows/System32)

Код:

'Show/Hide System Files by Herby, hard edited by Morkva

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
sTitle1 = "SSH=0"
sTitle2 = "SSH=1"

if WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then

WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
WSHShell.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\SuperHidden\", "Отображать скрытые", "REG_SZ"
WSHShell.RegWrite "HKEY_CLASSES_ROOT\Directory\Background\shell\SuperHidden\", "Отображать скрытые", "REG_SZ"
WSHShell.SendKeys "{F5}"

else

WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\SuperHidden\", "Не отображать скрытые", "REG_SZ"
WSHShell.RegWrite "HKEY_CLASSES_ROOT\Directory\Background\shell\SuperHidden\", "Не отображать скрытые", "REG_SZ"
WSHShell.SendKeys "{F5}"

end if

Set WSHShell = Nothing
WScript.Quit(0)

У меня все работает, включая автоматическое обновление... Сервер рулит )))

[Drongo]

morkva, отлично

У меня все работает, включая автоматическое обновление... »

Видимо у меня автообновление не работает вовсе, причём не только с этим скриптом.

[morkva]

Drongo
Автор скрипта (Herby) выложил вариант, написанный на AutoHotkey, и скомпилированный в exe-файл.
Есть минус - он проще и не меняет значения "Отображать/Не отображать".

читать дальше »

Иностранцы вообще странные - делают большое дело, но не могут реализовать так нужных порой мелочей...

Но, возможно, будет работать у тебя...
Обновление окна вообще работает за счет посыла кода клавиши "F5" в скрипте, не знаю как это может не работать...

См. архив.

читать дальше »

Нужно скопировать SuperHidden.exe в папку Windows/ и применить

Drongo
Предлагаю привести название темы в соответствие с содержанием, например:
Пункты "Отображать расширения", "Отобр./Не отобр. скрытые файлы" в контекстном меню проводника"

Возможно это пригодится кому-нибудь еще...

[Drongo]

Но, возможно, будет работать у тебя... »

Да у меня все и так работают.

Обновление окна вообще работает за счет посыла кода клавиши "F5" в скрипте, не знаю как это может не работать... »

Знать бы самому, почему не пашет?

Предлагаю привести название темы в соответствие с содержанием, например: Пункты "Отображать расширения", "Отобр./Не отобр. скрытые файлы" в контекстном меню проводника" »

Это не ко мне, а модераторам этого раздела Jekson07 или prokazzza. А назвать можно - "Добавление пользовательских пунктов в контекстное меню файлов\папок\объектов"

[Jekson07]

Предлагаю привести название темы в соответствие с содержанием

Сделано. Название темы: "Добавление пользовательских пунктов в контекстное меню (файлы, папки и т.д.)"

[R.M.L]

Jekson07, ну да,поторопившись заполучить нужный мне ответ,не подумал даж о поисковиках.Ведь не один я с этим сталкиваюсь.Мож кому то еще пригодиться эта тема.Спасибо

Видимо у меня автообновление не работает вовсе, причём не только с этим скриптом. »

Вот почему ты так мучал нас все эти дни ))

[hobbit25]

morkva, а с файлами Add SuperHidden.reg и Remove SuperHidden.reg что делать ну всмысле запускать или куда то просто положить