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

[R.M.L]

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

Код: Выделить всё

...

.



P.S. У меня только всё равно, нужно ПКМ - Обновить, хоть с примером выше, хоть со своим, хоть с -

Context Menu Tweaker (Hidden Files Toggle/File Extensions

. У всех происходит обновление окна автоматически?

[Drongo]

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



Изучив мат. часть обновил скрипт.

Теперь пункт контекстного меню меняется автоматически, в зависимости от значения реестра 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]

[Admiral]

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

[R.M.L]

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:



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

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

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

[morkva]

To All Доброго времени суток...



Как вариант - vbs файл "Show/Hide System Files Context Menu Item v1.1 by Herby"

Закомментировал всплывающие сообщения. Скрипт автоматически обновляет содержимое папки (WSHShell.SendKeys "{F5}").





Код:

Код: Выделить всё

'Show/Hide System Files by Herby
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.SendKeys "{F5}"
'WSHShell.Popup "Poof, they're gone!", 1, sTitle1, vbInformation
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.SendKeys "{F5}"
'WSHShell.Popup "Here they are!", 1, sTitle2, vbInformation
end if
Set WSHShell = Nothing
WScript.Quit(0)

Для установки скопировать SuperHidden.vbs в System32 и применить Add SuperHidden.reg





Код:

Код: Выделить всё

Windows Registry Editor Version 5.00
;Show/Hide System Files by Herby
[HKEY_CLASSES_ROOT\Directory\shell\SuperHidden]
@="Show/Hide System Files"
[HKEY_CLASSES_ROOT\Directory\shell\SuperHidden\command]
@="WScript.exe C:\\Windows\\System32\\SuperHidden.vbs"

[Drongo]

Цитата morkva:



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

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

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



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

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

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


Цитата morkva:



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

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

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

Это не ко мне, а модераторам этого раздела

Jekson07

или

prokazzza

. А назвать можно - "Добавление пользовательских пунктов в контекстное меню файлов\папок\объектов"

[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]

Вложения

[Расширение jpg было запрещено, вложение больше недоступно.]

Вложения

[Расширение jpg было запрещено, вложение больше недоступно.]

[R.M.L]

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




Цитата Drongo:



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

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

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

[R.M.L]

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