szfich est une chaîne ASCIIZ sur 260 = SAI_FIC
hicon est un entier = ExtraitIcone(szfich,0)
SI hicon<>0 ALORS
DrawIcon("IMG_Image1",hicon)
DestroyIcon(hicon)
FIN

// Extrait une icone à partir d'un fichier exécutable, une DLL ou un fichier de ressources
// szExeFileName [in] : Nom du fichier
// nIconIndex [in] : Index de l'icone à retrouver (0 pour 1ère icone)
// Renvoie le handle de l'icone extraite
Procedure ExtraitIcone(szExeFileName est une chaîne, nIconIndex est un entier)
hinst est un entier système = Handle()
hIcon est un entier système
hIcon = API("shell32.dll", "ExtractIconA", hinst, szExeFileName, nIconIndex)
RENVOYER hIcon

// Affiche une icone dont le handle est connu dans un champ image
// sNomImage [in] : Nom de l'image
// hicon [in] : handle de l'icone à afficher
Procedure DrawIcon(sNomImage,hicon)
{sNomImage,indChamp}..Visible=Faux
nHdc est un entier = dDébutDessin(sNomImage
API("user32","DrawIcon", nHdc,0,0,hicon)
{sNomImage,indChamp}..Visible=Vrai

// Destroys an icon and frees any memory the icon occupied
// hicon [in] : Handle to the icon to be destroyed
Procedure DestroyIcon(hicon)
API("User32","DestroyIcon",hicon)