R.M.L. можно. VBS вообще может
все
Универсальная версия для внесения пункта "Отображать скрытые/Не отображать скрытые" в контекстное меню Папки и Рабочего стола
В данной реализации под "скрытыми" понимаются также все файлы имеющие атрибуты "системный"!
Запись значения "Отображать/не отображать..." теперь идет параллельно в две ветки реестра:
HKEY_CLASSES_ROOT\Directory\shell\SuperHidden - для меню папки
HKEY_CLASSES_ROOT\Directory\Background\shell\SuperHidden - для меню рабочего стола
Файл Add SuperHidden.reg
Код:
![Выделить весь код](images/misc/selectcode.png)
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
Код:
![Выделить весь код](images/misc/selectcode.png)
Windows Registry Editor Version 5.00
[-HKEY_CLASSES_ROOT\Directory\shell\SuperHidden]
[-HKEY_CLASSES_ROOT\Directory\Background\shell\SuperHidden]
Файл SuperHidden.vbs (копировать в Windows/System32)
Код:
![Выделить весь код](images/misc/selectcode.png)
'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)
У меня все работает, включая автоматическое обновление... Сервер рулит )))