[..] Raccourci pour masquer les icones sous Windows 7

[surimy]

Bonjour à tous,
Pour masquer les icones sous Windows 7, il faut procéder de la sorte :

1) Clic droit sur le bureau.
2) Menu Affichage.
3) Afficher les icônes du Bureau pour les faire apparaitre/disparaitre.

Je suis à la recherche d'un script pour que cette commande de Windows soit lancée directement par un raccourci clavier ou un lien dans la barre des taches ?
Merci de vos réponses.

[zeshrek]

j'ai pas testé pour cause de pas de seven au bureau, mais ceci devrait marcher (repris d'un .reg qui est sensé faire le boulot) :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("W7icones", 183, 41, 192, 114)
$Masquer = GUICtrlCreateButton("Masquer", 8, 8, 75, 25, $WS_GROUP)
$Afficher = GUICtrlCreateButton("Afficher", 96, 8, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Masquer
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","HideIcons","REG_DWORD", "00000001")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced","HideIcons","REG_SZ", "-")
        Case $Afficher
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","HideIcons","REG_DWORD", "00000000")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced","HideIcons","REG_SZ", "-")
    EndSwitch
WEnd

Edit : ooops, j'avais oublié plein de parenteses fermantes, c'est corrigé

[surimy]

Merci pour votre réactivité, comment dois-je intégrer ce script ?

[zeshrek]

gnîîî ???
Intégrer le script ?

[surimy]

Bonjour,
Malheureusement, ce script ne fonctionne pas chez moi (OS:WIN_7/Service Pack 1 CPU:X64 OS:X64)
Les boutons Masquer et Afficher ne reponde pas , merci de votre aide.



Surimy.

[arrkhan]

Ce script ne fonctionne pas non plus chez moi (xppro sp3)

Le suivant ne fonctionne pas non plus (alors qu'il fonctionnait avant...), mais il donne une autre piste, la dernière ligne sert a relancer le bureau (Refresh)

► Afficher le texte

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=C:\Documents and Settings\Arrkhan\Desktop\ToggleIconDesktop.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
 if regread("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDesktop") <> 1 then
     RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoDesktop","REG_SZ", "1")
 else
     RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoDesktop","REG_SZ", "0")
 EndIf
Run(@comspec & ' /c ' &  "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters",@SW_HIDE)

[zeshrek]

en fait... y a besoin d'un reboot pour que ca marche semble t il....
Du coup, ca correspond peut etre pas trop a ce que tu recherchais...

[flodiable]

Il y a peut-être une solution de bidouille plus simple, comme déplacer les raccourcis et autres éléments dans un dossier temporaire mais si il y a des gros fichiers sa peut être gênant :/

[TT22]

Sinon tu peux le faire en faisant bouger la souris.

► Afficher le texte

Code : Tout sélectionner

MouseMove(@DesktopWidth/2,@DesktopHeight/2)
MouseClick("right")
sleep(500)
MouseMove(@DesktopWidth/2+200,@DesktopHeight/2+10)
MouseMove(@DesktopWidth/2+300,@DesktopHeight/2)
MouseMove(@DesktopWidth/2+300,@DesktopHeight/2+140)
MouseClick("left")
Exit

[Tlem]

Ce code, fonctionne sous XP et sous Vista/Seven :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

OnAutoItExitRegister("_ShowDesktop")

Global $GUI = GUICreate("Hide Desktop Icons", 232, 77, 192, 124, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
Global $Hide = GUICtrlCreateButton("Masquer", 24, 24, 75, 25)
Global $Show = GUICtrlCreateButton("Afficher", 128, 24, 75, 25)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE

            Exit

        Case $Hide
            WinSetState("Program Manager","", @SW_HIDE) ; <= La commande magique ;)

        Case $Show
            WinSetState("Program Manager","", @SW_SHOW)

    EndSwitch
WEnd

Func _ShowDesktop()
    WinSetState("Program Manager","", @SW_SHOW)
EndFunc

[flodiable]

Question peut-être bête Tlem mais "Program Manage"r gère l'affichage du bureau ou il peut servir a autre chose ?

[Tlem]

Je n'ai pas trouvé de traduction : http://en.wikipedia.org/wiki/Program_Manager

[TT22]

Pour la traduction il suffit d'aller sur google traduction et d'écrire l'URL

[Tlem]

@TT22
Arrêtez d'utiliser les traducteurs de ce genre. Avez-vous essayé ce que vous proposez et surtout de comprendre la traduction !!!

Ça n'a ni queue ni tête. Un traducteur en ligne fonctionnera à peut prêt correctement sur du texte classique, mais dès qu'il y a des termes techniques, c'est même pas la peine.

Traduire ceci :

This shell exposed a task-oriented graphical user interface (GUI), consisting of icons ( shortcuts for programs) arranged into program groups .

en ceci :

Cette coquille exposés une tâche orientée interface utilisateur graphique (GUI), consistant en icônes ( raccourcis pour les programmes) organisées en groupes de programmes.

franchement vous arrivez à comprendre quelque chose !!!

Même si cela donne une idée de ce que ça veut dire dans certains passages, ça embrouille plus dans d'autres, donc à éviter sur des textes technique.

[TT22]

@Tlem
Ouai effectivement mais quelques fois ça aide

[flodiable]

ok merci