Je me répond moim même, j'ai trouvé certaines information dans ce groupe et d'autre ailleurs.
J'espère que ce sera utile pour d'autres
//Début du code
FILE_ATTRIBUTE_NORMAL est un entier = 128
SHGFI_ICON est un entier = 256
SHGFI_USEFILEATTRIBUTES est un entier = 16
SHFILEINFO est une structure
hIcon est un entier //Type C : HICON
iIcon est un entier //Type C : int
dwAttributes est un entier //Type C : DWORD
szDisplayName est une chaîne fixe sur 260 //Type C : TCHAR
szTypeName est une chaîne fixe sur 80 //Type C : TCHAR
FIN
sh_info est un SHFILEINFO
hDC est un entier
hInst est un entier
hDC = dDébutDessin(image1)
iRetour est un entier = API("shell32","SHGetFileInfo",".jpg"+Caract(0),FILE_ATTRIBUTE_NORMAL,&sh_info,Dimension(sh_info),SHGFI_ICON+SHGFI_USEFILEATTRIBUTES)
SI iRetour <> -1 ALORS
// affichage de l'icône
API("user32", "DrawIcon", hDC, 1, 1, sh_info:hIcon)
API("user32", "DestroyIcon", sh_info:hIcon)
dRedimensionne(image1,image1..Largeur,image1..Hauteur)
FIN
//Fin du code |