Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Изменение внешнего вида Windows » Оформление Windows XP » Разное - Добавление пользовательских пунктов в контекстное меню (файлы, папки и т.д.)

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

Пользователь


Сообщения: 132
Благодарности: 8

Профиль | Отправить PM | Цитировать


Изменения
Автор: Amigos
Дата: 21-09-2009
Описание: орфография
Добрый день форумчане, мне очень нужно узнать, как можно с помощью реестра или другим способом добавить в контекстное меню проводника пункты Показать/скрыть расширение файлов, скрытые файлы и т.д?
А можно и такое чтобы "Создать папку" всегда стояла на первой строке меню?
Спасибо всем

-------
If Begin then End; else End.


Отправлено: 02:40, 22-03-2009

 

Аватара для Drongo

Будем жить, Маэстро...


Moderator


Сообщения: 6695
Благодарности: 1391

Профиль | Сайт | Отправить PM | Цитировать


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

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

-------
Правильная постановка вопроса свидетельствует о некотором знакомстве с делом.
3нание бывает двух видов. Мы сами знаем предмет — или же знаем, где найти о нём сведения.
[Quick Killer 3.0 Final [OSZone.net]] | [Quick Killer 3.0 Final [SafeZone.cc]] | [Парсер логов Gmer] | [Парсер логов AVZ]


Отправлено: 23:53, 28-03-2009 | #41



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 14
Благодарности: 5

Профиль | Отправить PM | Цитировать


Изображения
Тип файла: jpg 2009-03-29_173234.jpg
(44.2 Kb, 132 просмотров)
Тип файла: jpg 2009-03-29_173333.jpg
(56.1 Kb, 104 просмотров)

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

Изучив мат. часть обновил скрипт.
Теперь пункт контекстного меню меняется автоматически, в зависимости от значения реестра 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]
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:45, 29-03-2009 | #42


Пользователь


Сообщения: 132
Благодарности: 8

Профиль | Отправить PM | Цитировать


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

-------
If Begin then End; else End.


Отправлено: 02:18, 30-03-2009 | #43


Новый участник


Сообщения: 14
Благодарности: 5

Профиль | Отправить PM | Цитировать


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)
У меня все работает, включая автоматическое обновление... Сервер рулит )))

Последний раз редактировалось morkva, 30-03-2009 в 15:02. Причина: добавил пояснения

Это сообщение посчитали полезным следующие участники:

Отправлено: 14:56, 30-03-2009 | #44


Аватара для Drongo

Будем жить, Маэстро...


Moderator


Сообщения: 6695
Благодарности: 1391

Профиль | Сайт | Отправить PM | Цитировать


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

-------
Правильная постановка вопроса свидетельствует о некотором знакомстве с делом.
3нание бывает двух видов. Мы сами знаем предмет — или же знаем, где найти о нём сведения.
[Quick Killer 3.0 Final [OSZone.net]] | [Quick Killer 3.0 Final [SafeZone.cc]] | [Парсер логов Gmer] | [Парсер логов AVZ]


Отправлено: 15:03, 30-03-2009 | #45


Новый участник


Сообщения: 14
Благодарности: 5

Профиль | Отправить PM | Цитировать


Вложения
Тип файла: rar SuperHidden.rar
(172.9 Kb, 129 просмотров)

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

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

См. архив.
читать дальше »
Нужно скопировать SuperHidden.exe в папку Windows/ и применить


Drongo

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

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

Последний раз редактировалось morkva, 30-03-2009 в 16:14. Причина: "причесал" немного

Это сообщение посчитали полезным следующие участники:

Отправлено: 15:43, 30-03-2009 | #46


Аватара для Drongo

Будем жить, Маэстро...


Moderator


Сообщения: 6695
Благодарности: 1391

Профиль | Сайт | Отправить PM | Цитировать


Цитата morkva:
Но, возможно, будет работать у тебя... »
Да у меня все и так работают.
Цитата morkva:
Обновление окна вообще работает за счет посыла кода клавиши "F5" в скрипте, не знаю как это может не работать... »
Знать бы самому, почему не пашет?
Цитата morkva:
Предлагаю привести название темы в соответствие с содержанием, например:
Пункты "Отображать расширения", "Отобр./Не отобр. скрытые файлы" в контекстном меню проводника" »
Это не ко мне, а модераторам этого раздела Jekson07 или prokazzza. А назвать можно - "Добавление пользовательских пунктов в контекстное меню файлов\папок\объектов"

-------
Правильная постановка вопроса свидетельствует о некотором знакомстве с делом.
3нание бывает двух видов. Мы сами знаем предмет — или же знаем, где найти о нём сведения.
[Quick Killer 3.0 Final [OSZone.net]] | [Quick Killer 3.0 Final [SafeZone.cc]] | [Парсер логов Gmer] | [Парсер логов AVZ]


Отправлено: 18:03, 30-03-2009 | #47


Аватара для Jekson07


Moderator


Сообщения: 5795
Благодарности: 2075

Профиль | Отправить PM | Цитировать


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

-------
<< MultiBoot USB - Мультизагрузочная флешка v11.12.10 Final & Windows XPE/7PE | W7Elegant v5.5 Final >>
<< ResPatch Black-Dark Aero | Mega Love Face v2.5.5 - Всё в одном флаконе | Total Commander v7.56a >>

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:07, 30-03-2009 | #48


Пользователь


Сообщения: 132
Благодарности: 8

Профиль | Отправить PM | Цитировать


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

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

-------
If Begin then End; else End.


Отправлено: 01:01, 01-04-2009 | #49


Аватара для hobbit25

Ветеран


Сообщения: 1201
Благодарности: 124

Профиль | Отправить PM | Цитировать


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

Отправлено: 01:26, 01-04-2009 | #50



Компьютерный форум OSzone.net » Изменение внешнего вида Windows » Оформление Windows XP » Разное - Добавление пользовательских пунктов в контекстное меню (файлы, папки и т.д.)

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - Пропадание в меню "создать" некоторых пунктов и ещё пару вопросов Rockon Microsoft Windows 2000/XP 5 16-06-2009 15:40
Ошибка - Периодически не открываются пункты меню, папки, файлы Adgost Microsoft Windows 2000/XP 10 02-12-2008 16:57
Интерфейс - контекстное меню папки nureke Microsoft Windows 2000/XP 1 05-04-2008 09:11
Добавление в контекстное меню di2blo Автоматическая установка Windows 2000/XP/2003 4 24-03-2008 08:56
Удаление пунктов меню. andreyxp Microsoft Windows 2000/XP 2 16-08-2006 23:35




 
Переход