Предложения к новой версии Win 10 Tweaker
Цитата: syfle от 25.11.2021, 09:40Всем привет, как насчет добавить функцию удаления чего угодно из Unlocker’a в твикер? Думаю было бы удобно
Всем привет, как насчет добавить функцию удаления чего угодно из Unlocker’a в твикер? Думаю было бы удобно
Цитата: Alex от 25.11.2021, 10:55Всем приветы!
Предлагаю, если это возможно, в "Контекстное меню" добавить пункт показать/скрыть расширения файлов. Рядом с "показать скрыть/системные папки". Чтобы не для всей системы, а для конкретной директории.
Не всегда нужно видеть расширения, а при необходимости лезть каждый раз в настройки, или вызывать FAR не очень удобно.
Всем приветы!
Предлагаю, если это возможно, в "Контекстное меню" добавить пункт показать/скрыть расширения файлов. Рядом с "показать скрыть/системные папки". Чтобы не для всей системы, а для конкретной директории.
Не всегда нужно видеть расширения, а при необходимости лезть каждый раз в настройки, или вызывать FAR не очень удобно.
Цитата: Vlado от 25.11.2021, 12:14Цитата: Alex от 25.11.2021, 10:55Всем приветы!
Предлагаю, если это возможно, в "Контекстное меню" добавить пункт показать/скрыть расширения файлов. Рядом с "показать скрыть/системные папки". Чтобы не для всей системы, а для конкретной директории.
Не всегда нужно видеть расширения, а при необходимости лезть каждый раз в настройки, или вызывать FAR не очень удобно.Привет, Alex.
На данный момент можно использовать .VBS файл.
[spoiler title=".VBS"]Const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" strValueName = "HideFileExt" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue If dwValue = 0 Then dwValue = 1 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" Else dwValue = 0 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" End If[/spoiler]
Либо файл реестра. Добавляет в контекстное меню пункт для показа/скрытия расширений файлов.
[spoiler title=".REG"]Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide] "MUIVerb"="Показать/Скрыть расширения файлов" "Icon"="imageres.dll,242" "Position"="top" "Extended"="" [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command] @="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)" "execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"[/spoiler]
Либо .bat файл
[spoiler title=".bat"]reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0" if %errorlevel% == 1 goto Show if %errorlevel% == 0 goto Hide goto end :Hide reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /f goto end :Show reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /f goto end :end[/spoiler]
Цитата: Alex от 25.11.2021, 10:55Всем приветы!
Предлагаю, если это возможно, в "Контекстное меню" добавить пункт показать/скрыть расширения файлов. Рядом с "показать скрыть/системные папки". Чтобы не для всей системы, а для конкретной директории.
Не всегда нужно видеть расширения, а при необходимости лезть каждый раз в настройки, или вызывать FAR не очень удобно.
Привет, Alex.
На данный момент можно использовать .VBS файл.
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
strValueName = "HideFileExt"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
If dwValue = 0 Then
dwValue = 1
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{F5}"
Else
dwValue = 0
oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{F5}"
End If
Либо файл реестра. Добавляет в контекстное меню пункт для показа/скрытия расширений файлов.
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide]
"MUIVerb"="Показать/Скрыть расширения файлов"
"Icon"="imageres.dll,242"
"Position"="top"
"Extended"=""
[HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command]
@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)"
"execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"
Либо .bat файл
reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0" if %errorlevel% == 1 goto Show if %errorlevel% == 0 goto Hide goto end :Hide reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /f goto end :Show reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /f goto end :end
Цитата: Alex от 25.11.2021, 15:47Цитата: Vlado от 25.11.2021, 12:14
Привет, Alex.
На данный момент можно использовать .VBS файл.
[spoiler title=".VBS"]Const HKEY_CURRENT_USER = &H80000001strComputer = "."Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"strValueName = "HideFileExt"oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValueIf dwValue = 0 ThendwValue = 1oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValueset WshShell = WScript.CreateObject("WScript.Shell")WshShell.SendKeys "{F5}"ElsedwValue = 0oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValueset WshShell = WScript.CreateObject("WScript.Shell")WshShell.SendKeys "{F5}"End IfConst HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" strValueName = "HideFileExt" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue If dwValue = 0 Then dwValue = 1 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" Else dwValue = 0 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" End IfConst HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" strValueName = "HideFileExt" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue If dwValue = 0 Then dwValue = 1 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" Else dwValue = 0 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" End If[/spoiler]
Либо файл реестра. Добавляет в контекстное меню пункт для показа/скрытия расширений файлов.
[spoiler title=".REG"]Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide]"MUIVerb"="Показать/Скрыть расширения файлов""Icon"="imageres.dll,242""Position"="top""Extended"=""[HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command]@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)""execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide] "MUIVerb"="Показать/Скрыть расширения файлов" "Icon"="imageres.dll,242" "Position"="top" "Extended"="" [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command] @="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)" "execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide] "MUIVerb"="Показать/Скрыть расширения файлов" "Icon"="imageres.dll,242" "Position"="top" "Extended"="" [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command] @="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)" "execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"[/spoiler]
Либо .bat файл
[spoiler title=".bat"]reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0"if %errorlevel% == 1 goto Showif %errorlevel% == 0 goto Hidegoto end:Hidereg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /fgoto end:Showreg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /fgoto end:endreg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0" if %errorlevel% == 1 goto Show if %errorlevel% == 0 goto Hide goto end :Hide reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /f goto end :Show reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /f goto end :endreg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0" if %errorlevel% == 1 goto Show if %errorlevel% == 0 goto Hide goto end :Hide reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /f goto end :Show reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /f goto end :end[/spoiler]
Спасибо!
Цитата: Vlado от 25.11.2021, 12:14
Привет, Alex.
На данный момент можно использовать .VBS файл.
.VBSConst HKEY_CURRENT_USER = &H80000001strComputer = "."Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"strValueName = "HideFileExt"oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValueIf dwValue = 0 ThendwValue = 1oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValueset WshShell = WScript.CreateObject("WScript.Shell")WshShell.SendKeys "{F5}"ElsedwValue = 0oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValueset WshShell = WScript.CreateObject("WScript.Shell")WshShell.SendKeys "{F5}"End IfConst HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" strValueName = "HideFileExt" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue If dwValue = 0 Then dwValue = 1 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" Else dwValue = 0 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" End IfConst HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" strValueName = "HideFileExt" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue If dwValue = 0 Then dwValue = 1 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" Else dwValue = 0 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" End If
Либо файл реестра. Добавляет в контекстное меню пункт для показа/скрытия расширений файлов.
.REGWindows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide]"MUIVerb"="Показать/Скрыть расширения файлов""Icon"="imageres.dll,242""Position"="top""Extended"=""[HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command]@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)""execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide] "MUIVerb"="Показать/Скрыть расширения файлов" "Icon"="imageres.dll,242" "Position"="top" "Extended"="" [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command] @="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)" "execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide] "MUIVerb"="Показать/Скрыть расширения файлов" "Icon"="imageres.dll,242" "Position"="top" "Extended"="" [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command] @="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)" "execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"
Либо .bat файл
.batreg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0"if %errorlevel% == 1 goto Showif %errorlevel% == 0 goto Hidegoto end:Hidereg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /fgoto end:Showreg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /fgoto end:endreg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0" if %errorlevel% == 1 goto Show if %errorlevel% == 0 goto Hide goto end :Hide reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /f goto end :Show reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /f goto end :endreg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0" if %errorlevel% == 1 goto Show if %errorlevel% == 0 goto Hide goto end :Hide reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /f goto end :Show reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /f goto end :end
Спасибо!
Цитата: Alex от 25.11.2021, 16:06Цитата: Vlado от 25.11.2021, 12:14Цитата: Alex от 25.11.2021, 10:55Всем приветы!
Предлагаю, если это возможно, в "Контекстное меню" добавить пункт показать/скрыть расширения файлов. Рядом с "показать скрыть/системные папки". Чтобы не для всей системы, а для конкретной директории.
Не всегда нужно видеть расширения, а при необходимости лезть каждый раз в настройки, или вызывать FAR не очень удобно.Привет, Alex.
На данный момент можно использовать .VBS файл.
[spoiler title=".VBS"]Const HKEY_CURRENT_USER = &H80000001strComputer = "."Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"strValueName = "HideFileExt"oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValueIf dwValue = 0 ThendwValue = 1oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValueset WshShell = WScript.CreateObject("WScript.Shell")WshShell.SendKeys "{F5}"ElsedwValue = 0oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValueset WshShell = WScript.CreateObject("WScript.Shell")WshShell.SendKeys "{F5}"End IfConst HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" strValueName = "HideFileExt" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue If dwValue = 0 Then dwValue = 1 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" Else dwValue = 0 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" End IfConst HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" strValueName = "HideFileExt" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue If dwValue = 0 Then dwValue = 1 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" Else dwValue = 0 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" End If[/spoiler]
Либо файл реестра. Добавляет в контекстное меню пункт для показа/скрытия расширений файлов.
[spoiler title=".REG"]Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide]"MUIVerb"="Показать/Скрыть расширения файлов""Icon"="imageres.dll,242""Position"="top""Extended"=""[HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command]@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)""execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide] "MUIVerb"="Показать/Скрыть расширения файлов" "Icon"="imageres.dll,242" "Position"="top" "Extended"="" [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command] @="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)" "execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide] "MUIVerb"="Показать/Скрыть расширения файлов" "Icon"="imageres.dll,242" "Position"="top" "Extended"="" [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command] @="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)" "execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"[/spoiler]
Либо .bat файл
[spoiler title=".bat"]reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0"if %errorlevel% == 1 goto Showif %errorlevel% == 0 goto Hidegoto end:Hidereg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /fgoto end:Showreg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /fgoto end:endreg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0" if %errorlevel% == 1 goto Show if %errorlevel% == 0 goto Hide goto end :Hide reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /f goto end :Show reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /f goto end :endreg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0" if %errorlevel% == 1 goto Show if %errorlevel% == 0 goto Hide goto end :Hide reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /f goto end :Show reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /f goto end :end[/spoiler]
Привет, попробовал файлом реестра и созданием батника (c vbs нет опыта), результата не обнаружил. Оба раза после перегружал комп. Пробовал как на папке, так и на файле. Может, у кого получилось?
Цитата: Vlado от 25.11.2021, 12:14Цитата: Alex от 25.11.2021, 10:55Всем приветы!
Предлагаю, если это возможно, в "Контекстное меню" добавить пункт показать/скрыть расширения файлов. Рядом с "показать скрыть/системные папки". Чтобы не для всей системы, а для конкретной директории.
Не всегда нужно видеть расширения, а при необходимости лезть каждый раз в настройки, или вызывать FAR не очень удобно.Привет, Alex.
На данный момент можно использовать .VBS файл.
.VBSConst HKEY_CURRENT_USER = &H80000001strComputer = "."Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"strValueName = "HideFileExt"oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValueIf dwValue = 0 ThendwValue = 1oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValueset WshShell = WScript.CreateObject("WScript.Shell")WshShell.SendKeys "{F5}"ElsedwValue = 0oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValueset WshShell = WScript.CreateObject("WScript.Shell")WshShell.SendKeys "{F5}"End IfConst HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" strValueName = "HideFileExt" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue If dwValue = 0 Then dwValue = 1 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" Else dwValue = 0 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" End IfConst HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" strValueName = "HideFileExt" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue If dwValue = 0 Then dwValue = 1 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" Else dwValue = 0 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" End If
Либо файл реестра. Добавляет в контекстное меню пункт для показа/скрытия расширений файлов.
.REGWindows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide]"MUIVerb"="Показать/Скрыть расширения файлов""Icon"="imageres.dll,242""Position"="top""Extended"=""[HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command]@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)""execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide] "MUIVerb"="Показать/Скрыть расширения файлов" "Icon"="imageres.dll,242" "Position"="top" "Extended"="" [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command] @="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)" "execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide] "MUIVerb"="Показать/Скрыть расширения файлов" "Icon"="imageres.dll,242" "Position"="top" "Extended"="" [HKEY_CLASSES_ROOT\Directory\Background\shell\FileHide\command] @="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd /q /c for /f \"\"tokens=2,*\"\" %%i in ('reg query HKLM\\SOFTWARE\\Classes\\Directory\\Background\\shell\\HideExtFiles\\command /v execute') do %%j\",0)(close)" "execute"="cmd /q /c (for /f \"tokens=3,*\" %a in ('reg query HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt') do if \"%a\"==\"0x1\" (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 0 /f) else (reg add HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v HideFileExt /t REG_DWORD /d 1 /f))"
Либо .bat файл
.batreg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0"if %errorlevel% == 1 goto Showif %errorlevel% == 0 goto Hidegoto end:Hidereg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /fgoto end:Showreg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /fgoto end:endreg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0" if %errorlevel% == 1 goto Show if %errorlevel% == 0 goto Hide goto end :Hide reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /f goto end :Show reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /f goto end :endreg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "HideFileExt" | find "0x0" if %errorlevel% == 1 goto Show if %errorlevel% == 0 goto Hide goto end :Hide reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x1" /f goto end :Show reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "0x0" /f goto end :end
Привет, попробовал файлом реестра и созданием батника (c vbs нет опыта), результата не обнаружил. Оба раза после перегружал комп. Пробовал как на папке, так и на файле. Может, у кого получилось?
Цитата: Cronos от 25.11.2021, 16:56У меня есть батник, который делает скрытие папок и расширений и наоборот. В целом его не трудно в контекстное меню встроить если надо.
У меня есть батник, который делает скрытие папок и расширений и наоборот. В целом его не трудно в контекстное меню встроить если надо.
Цитата: ЯR от 25.11.2021, 17:03Цитата: Alex от 25.11.2021, 16:06Привет, попробовал файлом реестра и созданием батника (c vbs нет опыта), результата не обнаружил. Оба раза после перегружал комп. Пробовал как на папке, так и на файле. Может, у кого получилось?
🖐 Приветствую. Перезагружать комп не нужно.
vbs-скрипт обновляет представление только в том месте, где был запущен. То есть, если запустили на Рабочем столе, то команда SendKeys "{F5}" обновит вид стола, однако, если у вас параллельно уже было открыто окно Проводника, то вид в нём обновить придётся вручную.
С bat-файлом ещё сложнее — вручную обновлять вид придётся саму, и там, и там.
reg-файл — у меня не сработал.
Для себя, давно уже, выбрал путь использования сторонних утилит, при которых не нужно делать лишних движений: нажал один раз, и работаешь с комфортом. Тем более, если команда вынесена на боковую всплывающую панель.
Цитата: Alex от 25.11.2021, 16:06Привет, попробовал файлом реестра и созданием батника (c vbs нет опыта), результата не обнаружил. Оба раза после перегружал комп. Пробовал как на папке, так и на файле. Может, у кого получилось?
🖐 Приветствую. Перезагружать комп не нужно.
vbs-скрипт обновляет представление только в том месте, где был запущен. То есть, если запустили на Рабочем столе, то команда SendKeys "{F5}" обновит вид стола, однако, если у вас параллельно уже было открыто окно Проводника, то вид в нём обновить придётся вручную.
С bat-файлом ещё сложнее — вручную обновлять вид придётся саму, и там, и там.
reg-файл — у меня не сработал.
Для себя, давно уже, выбрал путь использования сторонних утилит, при которых не нужно делать лишних движений: нажал один раз, и работаешь с комфортом. Тем более, если команда вынесена на боковую всплывающую панель.
Цитата: Vlado от 25.11.2021, 17:43Цитата: Яр от 25.11.2021, 17:03Цитата: Alex от 25.11.2021, 16:06Привет, попробовал файлом реестра и созданием батника (c vbs нет опыта), результата не обнаружил. Оба раза после перегружал комп. Пробовал как на папке, так и на файле. Может, у кого получилось?
Приветствую. Перезагружать комп не нужно.
vbs-скрипт обновляет представление только в том месте, где был запущен. То есть, если запустили на Рабочем столе, то команда SendKeys "{F5}" обновит вид стола, однако, если у вас параллельно уже было открыто окно Проводника, то вид в нём обновить придётся вручную.
С bat-файлом ещё сложнее — вручную обновлять вид придётся саму, и там, и там.
reg-файл — у меня не сработал.
Для себя, давно уже, выбрал путь использования сторонних утилит, при которых не нужно делать лишних движений: нажал один раз, и работаешь с комфортом. Тем более, если команда вынесена на боковую всплывающую панель.
👋
У Вас после .reg файла меняется значение ключа в реестре?——————
VBS посылает сигнал f5 . Пробовал с рабочего стола.
После .bat необходимо нажимать f5 или обновить вручную.
файл реестра проверю чуть позже, но у меня работал
Цитата: Яр от 25.11.2021, 17:03Цитата: Alex от 25.11.2021, 16:06Привет, попробовал файлом реестра и созданием батника (c vbs нет опыта), результата не обнаружил. Оба раза после перегружал комп. Пробовал как на папке, так и на файле. Может, у кого получилось?
Приветствую. Перезагружать комп не нужно.
vbs-скрипт обновляет представление только в том месте, где был запущен. То есть, если запустили на Рабочем столе, то команда SendKeys "{F5}" обновит вид стола, однако, если у вас параллельно уже было открыто окно Проводника, то вид в нём обновить придётся вручную.
С bat-файлом ещё сложнее — вручную обновлять вид придётся саму, и там, и там.
reg-файл — у меня не сработал.
Для себя, давно уже, выбрал путь использования сторонних утилит, при которых не нужно делать лишних движений: нажал один раз, и работаешь с комфортом. Тем более, если команда вынесена на боковую всплывающую панель.
👋
У Вас после .reg файла меняется значение ключа в реестре?
——————
VBS посылает сигнал f5 . Пробовал с рабочего стола.
После .bat необходимо нажимать f5 или обновить вручную.
файл реестра проверю чуть позже, но у меня работал
Цитата: Игорь от 25.11.2021, 17:50Добрый 🖐
Остальное не пробовал, но reg. файл отработал.
Добрый 🖐
Остальное не пробовал, но reg. файл отработал.
Цитата: ЯR от 25.11.2021, 18:04У Вас после .reg файла меняется значение ключа в реестре?
Нет, значение не меняется. Один раз отработал — расширение скрыл, но последующие попытки не дали результата, ни с Рабочего стола, ни в окне Проводника.
VBS посылает сигнал f5 . Пробовал с рабочего стола.
После .bat необходимо нажимать f5 или обновить вручную.Я ровно об этом и написал.
У Вас после .reg файла меняется значение ключа в реестре?
Нет, значение не меняется. Один раз отработал — расширение скрыл, но последующие попытки не дали результата, ни с Рабочего стола, ни в окне Проводника.
VBS посылает сигнал f5 . Пробовал с рабочего стола.
После .bat необходимо нажимать f5 или обновить вручную.
Я ровно об этом и написал.
Цитата: Alex от 25.11.2021, 19:00Цитата: Vlado от 25.11.2021, 17:43Цитата: Яр от 25.11.2021, 17:03Цитата: Alex от 25.11.2021, 16:06Привет, попробовал файлом реестра и созданием батника (c vbs нет опыта), результата не обнаружил. Оба раза после перегружал комп. Пробовал как на папке, так и на файле. Может, у кого получилось?
Приветствую. Перезагружать комп не нужно.
vbs-скрипт обновляет представление только в том месте, где был запущен. То есть, если запустили на Рабочем столе, то команда SendKeys "{F5}" обновит вид стола, однако, если у вас параллельно уже было открыто окно Проводника, то вид в нём обновить придётся вручную.
С bat-файлом ещё сложнее — вручную обновлять вид придётся саму, и там, и там.
reg-файл — у меня не сработал.
Для себя, давно уже, выбрал путь использования сторонних утилит, при которых не нужно делать лишних движений: нажал один раз, и работаешь с комфортом. Тем более, если команда вынесена на боковую всплывающую панель.
У Вас после .reg файла меняется значение ключа в реестре?——————
VBS посылает сигнал f5 . Пробовал с рабочего стола.
После .bat необходимо нажимать f5 или обновить вручную.
файл реестра проверю чуть позже, но у меня работалДа, теперь все в порядке, для батника. Не знал, что нужно обновлять вручную. Благодарствую.
Цитата: Vlado от 25.11.2021, 17:43Цитата: Яр от 25.11.2021, 17:03Цитата: Alex от 25.11.2021, 16:06Привет, попробовал файлом реестра и созданием батника (c vbs нет опыта), результата не обнаружил. Оба раза после перегружал комп. Пробовал как на папке, так и на файле. Может, у кого получилось?
Приветствую. Перезагружать комп не нужно.
vbs-скрипт обновляет представление только в том месте, где был запущен. То есть, если запустили на Рабочем столе, то команда SendKeys "{F5}" обновит вид стола, однако, если у вас параллельно уже было открыто окно Проводника, то вид в нём обновить придётся вручную.
С bat-файлом ещё сложнее — вручную обновлять вид придётся саму, и там, и там.
reg-файл — у меня не сработал.
Для себя, давно уже, выбрал путь использования сторонних утилит, при которых не нужно делать лишних движений: нажал один раз, и работаешь с комфортом. Тем более, если команда вынесена на боковую всплывающую панель.
У Вас после .reg файла меняется значение ключа в реестре?——————
VBS посылает сигнал f5 . Пробовал с рабочего стола.
После .bat необходимо нажимать f5 или обновить вручную.
файл реестра проверю чуть позже, но у меня работал
Да, теперь все в порядке, для батника. Не знал, что нужно обновлять вручную. Благодарствую.
Цитата: ollerrand от 25.11.2021, 19:29Цитата: Яр от 25.11.2021, 17:03Цитата: Alex от 25.11.2021, 16:06Привет, попробовал файлом реестра и созданием батника (c vbs нет опыта), результата не обнаружил. Оба раза после перегружал комп. Пробовал как на папке, так и на файле. Может, у кого получилось?
🖐 Приветствую. Перезагружать комп не нужно.
vbs-скрипт обновляет представление только в том месте, где был запущен. То есть, если запустили на Рабочем столе, то команда SendKeys "{F5}" обновит вид стола, однако, если у вас параллельно уже было открыто окно Проводника, то вид в нём обновить придётся вручную.
С bat-файлом ещё сложнее — вручную обновлять вид придётся саму, и там, и там.
reg-файл — у меня не сработал.
Для себя, давно уже, выбрал путь использования сторонних утилит, при которых не нужно делать лишних движений: нажал один раз, и работаешь с комфортом. Тем более, если команда вынесена на боковую всплывающую панель.
ЗДРАВСТВУЙТЕ. Как вы сделали такую панель и что за тему используете?
Цитата: Яр от 25.11.2021, 17:03Цитата: Alex от 25.11.2021, 16:06Привет, попробовал файлом реестра и созданием батника (c vbs нет опыта), результата не обнаружил. Оба раза после перегружал комп. Пробовал как на папке, так и на файле. Может, у кого получилось?
🖐 Приветствую. Перезагружать комп не нужно.
vbs-скрипт обновляет представление только в том месте, где был запущен. То есть, если запустили на Рабочем столе, то команда SendKeys "{F5}" обновит вид стола, однако, если у вас параллельно уже было открыто окно Проводника, то вид в нём обновить придётся вручную.
С bat-файлом ещё сложнее — вручную обновлять вид придётся саму, и там, и там.
reg-файл — у меня не сработал.
Для себя, давно уже, выбрал путь использования сторонних утилит, при которых не нужно делать лишних движений: нажал один раз, и работаешь с комфортом. Тем более, если команда вынесена на боковую всплывающую панель.
ЗДРАВСТВУЙТЕ. Как вы сделали такую панель и что за тему используете?
Цитата: ЯR от 25.11.2021, 19:57Цитата: ollerrand от 25.11.2021, 19:29ЗДРАВСТВУЙТЕ. Как вы сделали такую панель и что за тему используете?
Добрый вечер.
Тема — Matcha
Панель — Linkbar
На будущее, вопросы по программам обсуждаем здесь.
Цитата: ollerrand от 25.11.2021, 19:29ЗДРАВСТВУЙТЕ. Как вы сделали такую панель и что за тему используете?
Добрый вечер.
Тема — Matcha
Панель — Linkbar
На будущее, вопросы по программам обсуждаем здесь.
Цитата: Vlado от 26.11.2021, 01:09Цитата: Яр от 25.11.2021, 18:04У Вас после .reg файла меняется значение ключа в реестре?
но последующие попытки не дали результата, ни с Рабочего стола, ни в окне Проводника.
Доброй ночи,
[spoiler title="Добавить"]Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\*\shell\Windows.ShowFileExtensions] "CommandStateSync"="" "Description"="@shell32.dll,-37571" "ExplorerCommandHandler"="{4ac6c205-2853-4bf5-b47c-919a42a48a16}" "MUIVerb"="Показать/Скрыть расширения" "Icon"="imageres.dll,242" [HKEY_CLASSES_ROOT\Folder\shell\Windows.ShowFileExtensions] "CommandStateSync"="" "Description"="@shell32.dll,-37571" "ExplorerCommandHandler"="{4ac6c205-2853-4bf5-b47c-919a42a48a16}" "MUIVerb"="Показать/Скрыть расширения" "Icon"="imageres.dll,242" [HKEY_CLASSES_ROOT\Directory\Background\shell\Windows.ShowFileExtensions] "CommandStateSync"="" "Description"="@shell32.dll,-37571" "ExplorerCommandHandler"="{4ac6c205-2853-4bf5-b47c-919a42a48a16}" "MUIVerb"="Показать/Скрыть расширения" "Icon"="imageres.dll,242"[/spoiler]
[spoiler title="Удалить"]Windows Registry Editor Version 5.00 [-HKEY_CLASSES_ROOT\*\shell\Windows.ShowFileExtensions] [-HKEY_CLASSES_ROOT\Folder\shell\Windows.ShowFileExtensions] [-HKEY_CLASSES_ROOT\Directory\Background\shell\Windows.ShowFileExtensions]
[/spoiler]
Цитата: Яр от 25.11.2021, 18:04У Вас после .reg файла меняется значение ключа в реестре?
но последующие попытки не дали результата, ни с Рабочего стола, ни в окне Проводника.
Доброй ночи,
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\*\shell\Windows.ShowFileExtensions]
"CommandStateSync"=""
"Description"="@shell32.dll,-37571"
"ExplorerCommandHandler"="{4ac6c205-2853-4bf5-b47c-919a42a48a16}"
"MUIVerb"="Показать/Скрыть расширения"
"Icon"="imageres.dll,242"
[HKEY_CLASSES_ROOT\Folder\shell\Windows.ShowFileExtensions]
"CommandStateSync"=""
"Description"="@shell32.dll,-37571"
"ExplorerCommandHandler"="{4ac6c205-2853-4bf5-b47c-919a42a48a16}"
"MUIVerb"="Показать/Скрыть расширения"
"Icon"="imageres.dll,242"
[HKEY_CLASSES_ROOT\Directory\Background\shell\Windows.ShowFileExtensions]
"CommandStateSync"=""
"Description"="@shell32.dll,-37571"
"ExplorerCommandHandler"="{4ac6c205-2853-4bf5-b47c-919a42a48a16}"
"MUIVerb"="Показать/Скрыть расширения"
"Icon"="imageres.dll,242"
Windows Registry Editor Version 5.00 [-HKEY_CLASSES_ROOT\*\shell\Windows.ShowFileExtensions] [-HKEY_CLASSES_ROOT\Folder\shell\Windows.ShowFileExtensions] [-HKEY_CLASSES_ROOT\Directory\Background\shell\Windows.ShowFileExtensions]