![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Изменение внешнего вида Windows » Оформление Windows 11/ 10 / 8 / 7 / Vista » Разное - [решено] Добавление в контекстное меню пункта Показать/Скрыть скрытые файлы и папки |
|
Разное - [решено] Добавление в контекстное меню пункта Показать/Скрыть скрытые файлы и папки
|
Старожил Сообщения: 345 |
Есть такой скрипт для добавления в контекстное меню пункта Показать/Скрыть скрытые файлы и папки:
ShHFF.vbs Hidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden" SSHidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden" Set Command1 = WScript.CreateObject("WScript.Shell") Check = Command1.RegRead(Hidden) If Check = 2 Then Command1.RegWrite Hidden, 1, "REG_DWORD" Command1.RegWrite SSHidden, 1, "REG_DWORD" Else Command1.RegWrite Hidden, 2, "REG_DWORD" Command1.RegWrite SSHidden, 0, "REG_DWORD" End If Command1.SendKeys "{F5}" Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Directory\Background\shell\SHHFF] @="Показать/Скрыть скрытые файлы и папки" "HasLUAShield"="" [HKEY_CLASSES_ROOT\Directory\Background\shell\SHHFF\command] @="WScript C:\\Windows\\ShHFF.vbs" [HKEY_CLASSES_ROOT\LibraryFolder\Background\shell\SHHFF] @="Показать/Скрыть скрытые файлы и папки" "HasLUAShield"="" [HKEY_CLASSES_ROOT\LibraryFolder\Background\shell\SHHFF\command] @="WScript C:\\Windows\\ShHFF.vbs" а при показываемых скрытых файлах и папках "Скрыть скрытые файлы и папки"??? НЕ НАДО УДАЛЯТЬ ТЕМУ!!! ИЗ РАЗДЕЛА WINDOWS XP Я УДАЛИЛ ВОПРОС!!! |
|
Отправлено: 21:10, 17-07-2013 |
Новый участник Сообщения: 27
|
Профиль | Отправить PM | Цитировать ни как (думаю), в контекст прописывается так сказать постоянная задача а не меняющаяся
|
Отправлено: 08:52, 18-07-2013 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 50
|
Профиль | Отправить PM | Цитировать ShHFF.vbs
Hidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden" SSHidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden" nnw = "HKEY_CLASSES_ROOT\LibraryFolder\Background\shell\SHHFF\" nnwn = "HKEY_CLASSES_ROOT\Directory\Background\shell\SHHFF\" Set Command1 = WScript.CreateObject("WScript.Shell") Check = Command1.RegRead(Hidden) If Check = 2 Then Command1.RegWrite Hidden, 1, "REG_DWORD" Command1.RegWrite SSHidden, 1, "REG_DWORD" Command1.RegWrite nnw, "Скрыть скрытые файлы и папки", "REG_SZ" Command1.RegWrite nnwn, "Скрыть скрытые файлы и папки", "REG_SZ" Else Command1.RegWrite Hidden, 2, "REG_DWORD" Command1.RegWrite SSHidden, 0, "REG_DWORD" Command1.RegWrite nnw, "Показать скрытые файлы и папки", "REG_SZ" Command1.RegWrite nnwn, "Показать скрытые файлы и папки", "REG_SZ" End If Command1.SendKeys "{F5}" |
Отправлено: 13:30, 18-07-2013 | #3 |
Пользователь Сообщения: 77
|
Профиль | Отправить PM | Цитировать не работает скрипт vbs второй.
![]() может не хватает прав для перезаписи HKCR ? тогда как их дать? (особенно простому пользователю) пробовал и с HKEY_CLASSES_ROOT и убирать слеш в конце. |
Последний раз редактировалось zegordo, 05-08-2016 в 08:15. Отправлено: 19:48, 04-08-2016 | #4 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - Добавление пользовательских пунктов в контекстное меню (файлы, папки и т.д.) | R.M.L | Оформление Windows XP | 159 | 07-03-2021 14:10 | |
Разное - Добавление пункта в контекстное меню (WinRaR) | Mancoffee | Microsoft Windows 7 | 11 | 01-09-2012 14:17 | |
Разное - Добавление пункта в меню Пуск | Deja7u | Оформление Windows XP | 42 | 13-02-2012 13:44 | |
Разное - [решено] Добавление пункта меню к типу файла | Tosyk | Microsoft Windows 7 | 7 | 16-05-2010 18:05 |
|