添加 右键显示隐藏文件+扩展名

http://hi.baidu.com/zq52480/blog/item/1489fd1f13abed11413417ee.html

添加 右键显示隐藏文件+扩展名

2010-08-25 22:41

本教程的代码收集于互联网 本人做了小部分的修改和完善

觉得好的欢迎转载 QQ524801143

**********************************************************************************

右键显示隐藏文件+扩展名

不必每次都点文件夹工具来实现

直接加到右键菜单中 如图:

 

win7下一样支持


方法就是新建一个文本文档 将文章后面的横线中的代码复制进去 保存 将文档重命名为123.bat

双击执行

 

现在右键菜单就变成上面提到的那样了 是不是方便多了呢

笔者的系统是xp再次执行此bat可以卸载

想重新安装时再次执行即可 ,win7在卸载方面有点小问题 后面会提到

 

 

win7下有两点需要注意

 

第一 : 执行本bat系统会阻止,在弹出的对话框中选择是

另外在卸载方面. Xp下是完全正常的 第一次执行是安装 ;再次执行是卸载 但是由于兼容性原因 .楼主测试win7下卸载不怎么好用 .多次执行bat结果都是安装 没办法卸载.最后笔者发现

神奇的是把此bat文件拖入回收站 再还原 再执行 结果就能卸载了 但是这次又不能安装了

要想重新安装 的话 就得重新 编辑一个bat 方法就回到最初了 .win7真是无处不神奇啊

------------------------------------------------------------------------------------------------------------------

@echo off

mode con cols=100 lines=10

title 右键隐藏文件+扩展名     修改:QQ524801143

color 0b

if not exist "%windir%/SuperHidden.vbs" goto setup

reg delete "HKCR/CLSID/{00000000-0000-0000-0000-000000000012}" /f >nul 2>nul

del /f /q "%windir%/SuperHidden.vbs" >nul 2>nul

echo.&echo 卸除完毕。 要重新安装请再执行一遍本bat

pause>nul

exit

:setup

color 0a

>"%windir%/SuperHidden.vbs" echo Dim WSHShell

>>"%windir%/SuperHidden.vbs" echo Set WSHShell = WScript.CreateObject("WScript.Shell")

>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCR/CLSID/{00000000-0000-0000-0000-000000000012}/Instance/InitPropertyBag/CLSID", "{13709620-C279-11CE-A49E-444553540000}", "REG_SZ"

>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCR/CLSID/{00000000-0000-0000-0000-000000000012}/Instance/InitPropertyBag/method", "ShellExecute", "REG_SZ"

>>"%windir%/SuperHidden.vbs" echo if WSHShell.RegRead("HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/HideFileExt") = 0 then

>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/ShowSuperHidden", "0", "REG_DWORD"

>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Hidden", "2", "REG_DWORD"

>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/HideFileExt", "1", "REG_DWORD"

>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCR/CLSID/{00000000-0000-0000-0000-000000000012}/Instance/InitPropertyBag/command", "显示文件+扩展名", "REG_SZ"

>>"%windir%/SuperHidden.vbs" echo WSHShell.SendKeys "{F5}+{F10}e"

>>"%windir%/SuperHidden.vbs" echo else

>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/ShowSuperHidden", "1", "REG_DWORD"

>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Hidden", "1", "REG_DWORD"

>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/HideFileExt", "0", "REG_DWORD"

>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCR/CLSID/{00000000-0000-0000-0000-000000000012}/Instance/InitPropertyBag/command", "隐藏+不显示扩展名", "REG_SZ"

>>"%windir%/SuperHidden.vbs" echo WSHShell.SendKeys "{F5}+{F10}e"

>>"%windir%/SuperHidden.vbs" echo end if

>>"%windir%/SuperHidden.vbs" echo Set WSHShell = Nothing

>>"%windir%/SuperHidden.vbs" echo WScript.Quit(0)

reg export "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced" "%temp%/__.reg" >nul

for /f "tokens=2 delims==" %%. in ('find/i "HideFileExt" "%temp%/__.reg"') do set v=%%~.

del "%temp%/__.reg"

set v=%v:~-1%

if %v% equ 0 set vv=隐藏+不显示扩展名

if %v% equ 1 set vv=显示文件+扩展名

>"%temp%/_.reg" echo REGEDIT4

>>"%temp%/_.reg" echo [HKEY_CLASSES_ROOT/Directory/Background/shellex/ContextMenuHandlers/SuperHidden]

>>"%temp%/_.reg" echo @="{00000000-0000-0000-0000-000000000012}"

>>"%temp%/_.reg" echo [HKEY_CLASSES_ROOT/CLSID/{00000000-0000-0000-0000-000000000012}/InProcServer32]

>>"%temp%/_.reg" echo @=hex(2):25,53,79,73,74,65,6d,52,6f,6f,74,25,5c,73,79,73,74,65,6d,33,32,5c,73,/

>>"%temp%/_.reg" echo   68,64,6f,63,76,77,2e,64,6c,6c,00

>>"%temp%/_.reg" echo "ThreadingModel"="Apartment"

>>"%temp%/_.reg" echo [HKEY_CLASSES_ROOT/CLSID/{00000000-0000-0000-0000-000000000012}/Instance]

>>"%temp%/_.reg" echo "CLSID"="{3f454f0e-42ae-4d7c-8ea3-328250d6e272}"

>>"%temp%/_.reg" echo [HKEY_CLASSES_ROOT/CLSID/{00000000-0000-0000-0000-000000000012}/Instance/InitPropertyBag]

>>"%temp%/_.reg" echo "method"="ShellExecute"

>>"%temp%/_.reg" echo "Param1"="SuperHidden.vbs"

>>"%temp%/_.reg" echo "CLSID"="{13709620-C279-11CE-A49E-444553540000}"

>>"%temp%/_.reg" echo "command"="%vv%"

regedit /s "%temp%/_.reg"

del /f /q "%temp%/_.reg"

echo.&echo 已添加至右键 再次执行本bat清除出右键菜单

pause>nul

exit

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
将"显示隐藏的系统文件+扩展名"添加右键菜单,并且可以在开始菜单中卸载。 支持Windows 2000/XP/2003/Vista/2008/Win7 均经过本人测试可用。 程序由vbscript编写,由RAR压缩打包,添加注册表项。 附部分代码内容: ============================================ [HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\SuperHidden] @="{00000000-0000-0000-0000-000000000012}" [HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\InProcServer32] @=hex(2):25,53,79,73,74,65,6d,52,6f,6f,74,25,5c,73,79,73,74,65,6d,33,32,5c,73,\ 68,64,6f,63,76,77,2e,64,6c,6c,00 "ThreadingModel"="Apartment" [HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance] "CLSID"="{3f454f0e-42ae-4d7c-8ea3-328250d6e272}" [HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag] "method"="ShellExecute" "Param1"="SuperHidden.vbs" "command"="显示/隐藏系统文件+扩展名" "CLSID"="{13709620-C279-11CE-A49E-444553540000}" [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced] "ShowSuperHidden"=dword:00000000 "Hidden"=dword:00000002 ============================================ 'Show/Hide System Files 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 "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD" WSHShell.RegWrite "HKCR\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\command", "显示系统文件+扩展名", "REG_SZ" WSHShell.SendKeys "{F5}+{F10}e" '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.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "0", "REG_DWORD" WSHShell.RegWrite "HKCR\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\command", "隐藏系统文件+扩展名", "REG_SZ" WSHShell.SendKeys "{F5}+{F10}e" 'WSHShell.Popup "Here they are!", 1, sTitle2, vbInformation end if Set WSHShell = Nothing WScript.Quit(0)

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值