DuplicateIcon :  Créer un double du logo Windows

rem ============================================================================
rem               DuplicateIcon
rem        Créer un double du logo Windows
rem ============================================================================
rem DuplicateIcon crée le double d’une icône spécifié.
rem En cas de succès, la fonction retourne le handle du nouvel icône qui vient
rem d’être créé.
rem En cas d’erreur, elle retourne zéro.
rem ============================================================================
dim IDI_WINLOGO : IDI_WINLOGO = 32517  : ' Essayez les valeurs de 32512 à 32518 pour d'autres icones
dim hwnd%, hDC%, hIcon%, hDupIcon%, ret%
hwnd% = handle(0)
hDC% = handle_canvas(0)
dll_on "user32"
' Ouvrir l'icône "Windows"
hIcon% = dll_call2("LoadIconA",0,IDI_WINLOGO)
dll_off
dll_on "shell32"
' Duplique le handle retourné
hDupIcon% = dll_call2("DuplicateIcon", 0, hIcon%)

dll_off
dll_on "user32"
' Dessine l'icône sur la fenêtre
ret% = dll_call4("DrawIcon", hDC%, 10, 10, hDupIcon%) : ' 10, 10 représente la position d'affichage de l'icone
' Détruit les handles
ret% = dll_call1("DestroyIcon", hIcon%)
ret% = dll_call1("DestroyIcon", hDupIcon%)
rem ============================================================================