[R] GUI bouton ou raccourci pour afficher le bureau

Aide sur les Interfaces Graphique Utilisateurs (GUI).
Règles du forum
.
Répondre
Avatar du membre
fred39
Niveau 4
Niveau 4
Messages : 64
Enregistré le : lun. 05 mai 2008 10:03
Status : Hors ligne

[R] GUI bouton ou raccourci pour afficher le bureau

#1

Message par fred39 »

Bonjour, j'aimerais dans ma gui insérer un bouton ou icône analogue à celui de la barre de lancement rapide qui réduise toutes les fenêtres pour afficher le bureau.
Je ne vois pas trop comment faire ne serait-ce que pour récupérer l'image guictrlcreateicone et quelle commande lancer.
le raccourci de windows est un fichier "bureau.scf" contenant le texte suivant:

Code : Tout sélectionner

[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop
Merci
Modifié en dernier par fred39 le mar. 24 nov. 2009 12:31, modifié 1 fois.
Avatar du membre
fred39
Niveau 4
Niveau 4
Messages : 64
Enregistré le : lun. 05 mai 2008 10:03
Status : Hors ligne

Re: [R] GUI bouton ou raccourci pour afficher le bureau

#2

Message par fred39 »

Je réponds à mon post.
Si ça peut intéresser quelqu'un:
Voici une adapatation du script de l'exemple qui répond à ma question.

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example1()



;example1 ---------------------------
Func Example1()
    Local $icon, $n1, $n2, $msg

    GUICreate(" My GUI Icons", 250, 250)

    $icon = GUICtrlCreateIcon("shell32.dll", 35, 20, 20)
GUISetState()


    ; Run the GUI until the dialog is closed
While 1
        $msg = GUIGetMsg()
    Select
            Case $msg = $GUI_EVENT_CLOSE  
                exit

            Case $msg = $icon
                
                Send("{LWINDOWN}{d}")

    EndSelect
WEnd
GUIDelete()
EndFunc
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11796
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [...] GUI bouton ou raccourci pour afficher le bureau

#3

Message par Tlem »

Sinon, vous pouviez lancer le fichier .scf avec l'explorer :

Code : Tout sélectionner

shellexecute(@UserProfileDir & "\Application Data\Microsoft\Internet Explorer\Quick Launch\bureau.scf")
.

Ca ne fonctionne que si le fichier est bien présent dans le répertoire, sinon, il suffit de le créer et de la lancer. ;)

Cela dit, il existe une fonction toute prête dans AutoIt pour réduire toutes les fenêtres. :P
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Répondre