Windows7去除快捷方式小箭头+源码

*yinbinly* *发表于 2011-08-06 17:10:41* · 发表于 2011-08-06 17:10:41

无聊写的小工具，感谢论坛fuldho对小弟的技术指点没技术含量仅供初学者交流
源码+附件+成品
源码

#NoTrayIcon
#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
FileInstall("Binly.ico", @WindowsDir & "")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 193, 86, 623, 370)
$Radio1 = GUICtrlCreateRadio("去除小箭头", 8, 16, 81, 25, BitOR($GUI_SS_DEFAULT_RADIO,$BS_RIGHTBUTTON))
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("恢复小箭头", 9, 44, 81, 25, BitOR($GUI_SS_DEFAULT_RADIO,$BS_RIGHTBUTTON))
$Button1 = GUICtrlCreateButton("执行", 104, 16, 73, 57, $BS_DEFPUSHBUTTON)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Sleep(33)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($Radio1) = 1 Then
qc()
EndIf
If GUICtrlRead($Radio2) = 1 Then
hf()
EndIf
Sleep(1000)
MsgBox(0, "提示!", "优化完成重启后生效!")
EndSwitch
WEnd
Func qc()
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons')
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons', '29', 'REG_SZ', 'C:\Windows\Binly.ico,0')
EndFunc;
Func hf()
RegDelete('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons')
EndFunc;

复制代码

附件+成品

*电脑知识网* *发表于 2015-08-11 17:20:04* · 发表于 2015-08-11 17:20:04

好东西啊！

*1399989272* *发表于 2015-06-04 16:53:23* · 发表于 2015-06-04 16:53:23

试用一下

*a290450620* *发表于 2014-09-16 20:26:12* · 发表于 2014-09-16 20:26:12

不错不错

*襄芸澜* *发表于 2014-04-13 13:09:53* · 发表于 2014-04-13 13:09:53

谢谢大哥分享

*huangshan* *发表于 2014-03-06 19:48:27* · 发表于 2014-03-06 19:48:27

不错很好，谢谢了

*huangshan* *发表于 2014-03-06 19:34:47* · 发表于 2014-03-06 19:34:47

看看学习学习

*gaige* *发表于 2013-03-29 20:32:17* · 发表于 2013-03-29 20:32:17

哥们，你这个厉害。

*ysljz* *发表于 2012-03-30 21:02:14* · 发表于 2012-03-30 21:02:14

下载不了啊

*ysljz* *发表于 2012-03-30 20:57:55* · 发表于 2012-03-30 20:57:55

这个不知道能不能有用啊，试试

[其它] Windows7去除快捷方式小箭头+源码