[R] Choix d'une icône.

[theAvenger]

Dans la 4e version de KillWindow (voir ici), j'ai besoin de montrer une petite fenêtre contenant les icônes de la dll system32, or je ne sais pas comment faire pour lister les icônes, les afficher, et après en appuyant sur un bouton "Ok", récupérer le chemin de l'icône sélectionnée.

Merci de vos réponses.

[TT22]

Essaye avec "enumicon.au3" qui est fournis dans les exemples

[theAvenger]

Ca se rapproche effectivement de ce que je cherche. Je verrais le fonctionnement demain. Merci !

[theAvenger]

J'ai découvert qu'il y avait un objet COM qui s'appelait "Microsoft shell folder view router". D'après ce que je comprend, il s'agit d'un objet permettant de voir une dossier shell (une dll ?). Peut-être que je peux l'utiliser pour voir system32.dll, mais je ne sais pas utiliser les objets COM. Si quelqu'un en sait plus long à ce sujet, je l'écouterai volontiers.
Merci !

[theAvenger]

Par hasard j'ai déouvert ceci, ce qui est exactement ce que je voulais :

► Afficher le texteVoir le code

Code : Tout sélectionner

#include-once

Func ChangeIcone()
    $sFileName = @SystemDir & '\shell32.dll'

    ; Create a structure to store the icon index
    $stIcon = DllStructCreate("int")
    $stString = DllStructCreate("wchar[260]")
    $structsize = DllStructGetSize($stString) / 2
    DllStructSetData($stString, 1, $sFileName)

    ; Run the PickIconDlg - '62' is the ordinal value for this function
    DllCall("shell32.dll", "none", 62, "hwnd", 0, "ptr", DllStructGetPtr($stString), "int", $structsize, "ptr", DllStructGetPtr($stIcon))

    $sFileName = DllStructGetData($stString, 1)
    $nIconIndex = DllStructGetData($stIcon, 1)

    ; Show the new filename and icon index
    Return ($stIcon)
EndFunc   ;==>ChangeIcone
 

Mais je n'arrive pas retourner le handle de l'icône sélectionnée. Est-ce que quelqu'un peut m'aider ? Merci.

[sylvanie]

Bonjour,

La fonction renvoie au mieux l'index de l'icône dans la dll. On ne peut pas réeelement parlé de handle comme lorsqu'on crée un bojet image.
Mais à partir de l'index, on peut en créé un ou en updater un :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 508, 339, 192, 124)
$change_icone = GUICtrlCreateButton("change_icone", 368, 264, 81, 33, $WS_GROUP)
$Icon1 = GUICtrlCreateIcon("", -1, 136, 88, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $change_icone
        ChangeIcone()
        GUICtrlSetImage ($Icon1,"shell32.dll",-1-DllStructGetData($stIcon,1))


        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd



Func ChangeIcone()
    $sFileName = @SystemDir & '\shell32.dll'

    ; Create a structure to store the icon index
    $stIcon = DllStructCreate("int")
    $stString = DllStructCreate("wchar[260]")
    $structsize = DllStructGetSize($stString) / 2
    DllStructSetData($stString, 1, $sFileName)

    ; Run the PickIconDlg - '62' is the ordinal value for this function
    DllCall("shell32.dll", "none", 62, "hwnd", 0, "ptr", DllStructGetPtr($stString), "int", $structsize, "ptr", DllStructGetPtr($stIcon))

    $sFileName = DllStructGetData($stString, 1)
    $nIconIndex = DllStructGetData($stIcon, 1)

    ; Show the new filename and icon index
    Return ($stIcon)
EndFunc   ;==>ChangeIcone



 

[Edit] : attention j'ai modifié l'index de l'icône car on est en mode "ordinal"

[theAvenger]

Merci beaucoup, ça marche parfaitement !!!!!