PROCEDURE ResizeImage(ImgPathSource est une chaine,ImgPathDest est une chaine, NewWidth est un entier, NewHeight est un entier)
oImg est un Image dynamique //Objet image
oGraphic est un Graphics dynamique //Objet Graphique
oRect est un Rectangle dynamique //Rectangle dans lequel on va dessiner
oNewImg est un Image dynamique //Image redimensionnée
oImg = Image::FromFile(ImgPath) //On charge l'image
oNewImg = new Bitmap(NewWidth, NewHeight) //On créer une image vide à la bonne dimension
oGraphic = Graphics::FromImage(oNewImg) //Creation d'un graphic qui contient l'image vide
oRect = new Rectangle(0,0,Newidth, NewHeight) //Création d'une zone rectangulaire
oGraphic:DrawImage(oImg, oRect) //Création du graphique avec les dimension voulues et l'image redimensionnée
oNewImg:Save(ImgPathDest) //sauvegarde de l'image redimensionnée
//Libération des objets
oImg:Dispose()
oNewImg:Dispose()
oGraphic:Dispose()
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3646&post_id=15436