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

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

谢谢又学到东西啊高兴

辛苦了，谢谢分享！

回复 8# 阿木
{:smile:}我在IT天空只发了程序，这就是那个程序的代码

是的，重启一下explorer就可以立即生效了

回复 6# 阿木


   立即生效的代码[code]#NoTrayIcon
#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
FileInstall("Binly.ico", @WindowsDir & "\")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ly", 193, 86, -1, -1)
$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

        ProcessClose("explorer.exe")
        Sleep(1000)
        Run(@SystemDir & "\explorer.exe", "", @SW_HIDE)
        Do
        Until ProcessExists("explorer.exe")
                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; [code]

和我那个基本类似的代码，比较实用，就是不能即使生效，准备修改下呢。。

回复 4# yinbinly


   嗯   以前有注册过了   不过  现在貌似是换了新域名了？

回复 3# 玩看


   欢迎来到阿木电脑吧。