//[ <Résultat> = ] ChangePapierPeint (<sNomFichierPapierPeint>)
//
// Paramètres :
//        sNomFichierPapierPeint : Le chemin du fichier que l'on souhaite mettre en papier peint
// Valeur de retour :
//         booléen : Vrai si le changement a été effectué, faux sinon

PROCEDURE ChangePapierPeint(sNomFichierPapierPeint)
nres est un entier

nres = API("user32","SystemParametersInfoA",SPI_SETDESKWALLPAPER,0,&sNomFichierPapierPeint,SPIF_UPDATEINIFILE)
SI nres = 0 ALORS
        RENVOYER Faux
SINON
        RENVOYER Vrai
FIN