Verknüpfungspfeil Hider Win_7

    Hi Leute
    Da unter Windows 7 bei einer Verknüpfung immer so hässliche Pfeile dranhängen habe ich ein kleines Optionsscript geschrieben mit dem man
    sie Tranzparent bzw austauschen kann. das ganze kann natürlich auch rückgängig gemacht werden.

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #RequireAdmin
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    If Not @OSVersion = "WIN_7" Then
    MsgBox(48,"Inkompatiebele Version","Dieses Programm ist nur für Windows 7 geeignet, und wird daher beendet")
    Exit
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $start="start"
    $restore="restore"
    $re_ico=@ScriptDir&"\1.ico"

    [/autoit] [autoit][/autoit] [autoit]

    $VHFW7_gui = GUICreate("VHFW7", 526, 190, 280, 223)
    GUISetBkColor(0xC0C0C0)
    $btn = GUICtrlCreateButton("start", 160, 96, 185, 41, $WS_GROUP)
    If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell icons","29") <> "" Then GUICtrlSetData($btn,$restore)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $xy_1 = GUICtrlCreateLabel("Verknüpfungspfeil Hider for Windows 7", 32, 16, 457, 33)
    GUICtrlSetFont(-1, 18, 800, 0, "Arial")
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg=GUIGetMsg()
    Select
    Case $msg=$GUI_EVENT_CLOSE
    Exit
    Case $msg=$btn
    If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell icons","29") = "" Then
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell icons","29","REG_SZ",$re_ico)
    GUICtrlSetData($btn,$restore)
    win_restart()
    Else
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell icons","29")
    GUICtrlSetData($btn,$start)
    win_restart()
    EndIf
    EndSelect
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func win_restart()
    If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(36,"Neustart erforderlich","Damit die Änderung wirksam wird muss ein Neustart durchgeführt werden." & @CRLF & "Soll Windows jetzt neu gestartet werden?")
    Select
    Case $iMsgBoxAnswer = 6
    Shutdown(0)
    Case $iMsgBoxAnswer = 7
    Return 0
    EndSelect
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit]

    unter $re_ico könnt ihr euer tranzparentes icon o. ein anderes pfeil icon einsetzen