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

Habetdin · Отправлено: **20:34, 04-09-2009** | #91

Fresh96, запускаете с правами админа?

Fresh96 · Отправлено: **22:06, 04-09-2009** | #92

Цитата Habetdin:

Fresh96, запускаете с правами админа? »

Новый пользователь с правами администратора на свежеустановленной системе (виртуалка)

Habetdin · Отправлено: **22:14, 04-09-2009** | #93

Fresh96, а если запустить так?

Код:

start /wait ShowSuperHidden.vbs 1

Fresh96 · Отправлено: **22:27, 04-09-2009** | #94

Чтото не хочет (
А в указанные скрипты, случайно, ничего не нужно дописывать самостоятельно?

Habetdin · Отправлено: **22:31, 04-09-2009** | #95

Fresh96, просто у вас нет ветки HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden
А скрипт проверяет ее и выдает ошибку:

Цитата Peredreifus:

' Проверяем значение в реестре и в зависимости от него либо отображаем скрытые папки, либо наоборот убираем.
If WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then »

Fresh96 · Отправлено: **22:34, 04-09-2009** | #96

Посмотрел в реестре - записи создаются. Но не появляются соответствующие пункты в меню.

Имеет ли значение в какой кодировке файл?
Вышлите, пожалуйста, в ПМ скрипты которые работают у Вас.

Peredreifus · Отправлено: **15:17, 13-09-2009** | #97

Цитата Fresh96:

Посмотрел в реестре - записи создаются. Но не появляются соответствующие пункты в меню. »

Если у тебя Windows XP, то пунктов ты и не увидишь, она не поддерживает этой фичи. На Висте и Windows 7 работает.

StasNVKZ · Отправлено: **19:38, 18-09-2009** | #98

Цитата Peredreifus:

Цитата Fresh96:
Посмотрел в реестре - записи создаются. Но не появляются соответствующие пункты в меню. »
Если у тебя Windows XP, то пунктов ты и не увидишь, она не поддерживает этой фичи. На Висте и Windows 7 работает. »

Поддерживает. Только немного другие ветки реестра нужны.

Код:

Dim WSHShell  Set WSHShell = WScript.CreateObject("WScript.Shell")  
' Если скрипт запущен с каким-то параметром, то...  
If WScript.Arguments.Count>0 Then  	
' Проверяем значение в реестре и в зависимости от него либо отображаем расширения, либо наоборот скрываем.  	
If WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt") = 0 then  	
' Скрываем расширения  	
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"  	
' Добавляем пункт в контекстное меню  	
' В поле command прописываем путь до текущего скрипта с параметром (не важно каким, главное, чтобы он был), чтобы..  	
' ..скрипт понял, что ему нужно не удалить ветку реестра, а изменить  	
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\shell\HideFileExt\", "Показать расширения", "REG_SZ"  	
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\shell\HideFileExt\command\", "WScript.exe """&WScript.ScriptFullName&""" -argument", "REG_SZ"  	
' Обновляем окно эксплорера, чтобы увидеть результат  	
WSHShell.SendKeys "{F5}"  	
Else  	
' Показываем расширения  	
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "0", "REG_DWORD"  	
' Добавляем пункт в контекстное меню  	
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\shell\HideFileExt\", "Скрыть расширения", "REG_SZ"  	
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\shell\HideFileExt\command\", "WScript.exe """&WScript.ScriptFullName&""" -argument", "REG_SZ"  	
' Обновляем окно эксплорера, чтобы увидеть результат  	
WSHShell.SendKeys "{F5}"  	
End If  
Else  	
' Если запись в реестре есть, то удаляем наш раздел  	
If WSHShell.Run("cmd.exe /C REG QUERY ""HKEY_CURRENT_USER\Software\Classes\Directory\shell\HideFileExt""", 0, True)=0 Then  		
WSHShell.Run "cmd /C REG DELETE ""HKEY_CURRENT_USER\Software\Classes\Directory\shell\HideFileExt"" /f", 0  	
Else  		
' Иначе запускаем этот скрипт с параметром (какой параметр - значения не имеет, главное его наличие)  		
WSHShell.Run """"&WScript.ScriptFullName&""" -argument"  		
' И еще добавим иконочку для красоты  		
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\shell\HideFileExt\Icon", "%SystemRoot%\System32\shell32.dll,69", "REG_SZ"  	
End If  
End if  
Set WSHShell = Nothing  
WScript.Quit(0)

Fresh96 · Отправлено: **19:52, 18-09-2009** | #99

Цитата Peredreifus:

Если у тебя Windows XP »

Она самая.

Цитата Peredreifus:

пунктов ты и не увидишь, она не поддерживает этой фичи. На Висте и Windows 7 работает. »

Жаль. Придется вернутся к старой версии... но сначала попробую вариант от StasNVKZ

wolfxr · Отправлено: **19:01, 21-09-2009** | #**100**

Всем привет, подскажите пожалуйста как сделать чтобы в контекстном меню при нажатии на файл правой кнопкой появлялся пункт "Копировать путь" раньше в сборке zvercd такая штучка была а щас нет и без нее очень неудобно.